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ABSTRACT 


Shipboard fires have been the bane of mariners since man’s earliest attempts to sail 
the sea. Understanding the behavior of fire in an enclosed space, such as those found 
on today’s modern seagoing vessels, will greatly enhance the mariner’s ability to combat 
or prevent them. In a joint effort between the Naval Postgraduate School and the 
University of Notre Dame a computer code has been developed to model a full scale fire 
in a closed compartment. The code uses a finite volume formulation to obtain numerical 
solutions to the unsteatdy, three dimensional conservation equations of mass, momen- 
tum and energy. Included are the effects of turbulence, strong buoyancy, surface radi- 
ation and wall conduction. The code gives velocities. pressure, temperatures, and 
densities throughout the field. 

This thesis apphes that computer code to the U.S. Navv’s full scale fire test chamber 
at Naval Air Warfare Center, China Lake, California. Advanced computer graphics 
techniques, including color contouring and three dimensional vector field plotting have 
been applied to make output data more informative. It is hoped that someday this 
model could provide a useful tool for naval architects in the design of a fire safe ship, 
and a cost effective means for development ‘evaluation of new firefighting equipment and 


techniques. 
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The reader 1s cautioned that computer programs developed in this research may not 
have been exercised for all cases of interest. While every effort has been made, within 
the time available, to ensure that the programs are free of computational and logic er- 
rors, they cannot be considered validated. Any application of these programs without 


additional verification is at the risk of the user. 
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I. INTRODUCTION 


A. BACKGROUND 

Fire aboard ship 1s one of the professional mariner’s worst fears. With no place to 
go to escape the heat and smoke the mariner must fight the blaze or face the loss of his 
vessel. Even though U.S. merchant marine and naval personnel receive some of the best 
fire fighting training available, annual losses to shipboard fires can easily run into the 
hundred million dollar range. Ship down time, equipment repair/replacement, personnel 
injuries and casualties all contribute to these costs and result in the degradation of our 
merchant marine and naval forces. To minimize these losses it is imperative that the 
phenomena of fire be studied and understood especially in the relatively closed environ- 
ment found aboard ship. It 1s only through study and understanding that adequate 
means may be developed to prevent or mitigate the devastating effects of a shipboard 
fire: 

Fire 1s a complex phenomena whose study is equally complex, requiring the com- 
bined knowledge of a variety of fields including fluid dynamics, heat and mass transfer, 
and combustion. Research into the mechanics of fire and development of methods to 
predict it’s behavior will aid engineers in reducing the probability of its ignition and 
minimizing its effects once ignited. [Ref. }] 

It is the complexity of fire which makes its study so difficult, especially in a 
shipboard environment. Small scale fire studies have proven inadequate for predicting 
the behavior of large scale fires. Therefore, full scale studies are generally the only 
means for conducting realistic experimentation. However, such full scale experimenta- 
tion can be very costly and dangerous. Shipboard fires often occur in fully enclosed, 
airtight spaces where pressures can build up during the fire. These spaces may have re- 
stricted accesses, contain electronic equipment, flammables and/or toxics, all of which 
add to the expense and danger of full scale experimentation. Additional costs will also 
be incurred as air quality and emission standards are stiffened across the country. 

To study the phenomena of shipboard fire, the U.S. Navy has built a test facility at 
the Naval Research Laboratory in Washington, DC known as Fire-l. This facility is 
essentially a large cylindrical pressure vessel with spherical endcaps intended for use in 
full scale modeling of fires inside submarines and/or in closed airtight compartments 


aboard ships. Missile attacks against British warships during the Falklands crisis and the 


Iraqi missile attack on the USS STARK in the Persian Gulf in 1987 prompted the U.S. 
Navy to build a second fire test facility at the Naval Air Warfare Center (NAWC) in 
China Lake, CA. The purpose of this facility is to study the effects of fire in a vented 
compartment [Ref. 2, pp. 7-8]. It 1s this facility which 1s modeled in this thesis. 

A less expensive, and less dangerous alternative to full scale fire experimentation 1s 
the use of computer modeling techniques. The development of high speed, high capacity 
computers has allowed researchers to model thoroughly the complex fire phenomena 
and predict fire behavior without the expense of full scale testing. A properly developed 
computer model, validated against actual full scale test data, can provide a less expensive 
and safe alternative to full scale experimentation. Furthermore, the inherent flexibility 
of computer modeling allows it to be used on increasingly more complex geometries. 
Someday this may lead to modeling of entire ships during the design phase to identify 
areas particularly susceptible to fire, or for the accurate prediction of the effectiveness 


of new firefighting techniques. 


B. COMPUTER MODELING 

Field modeling uses finite difference techniques to subdivide the volume being 
studied, in this case the simulated shipboard compartment, into small, finite volume el- 
ements. Using initial conditions specified by the user and the finite difference forms of 
the equations for conservation of mass, momentum, and energy, values of temperature, 
pressure, velocity and density are calculated for each of the individual volumetric ele- 
ments at discrete time intervals. Additional modeling of physical effects such as radi- 
ation, turbulence and wall conduction are included to increase the validity of the 
simulation. The enormous number of calculations necessary for this type of modeling 
mandates the use of large amounts of computer memory and high speed processors. 

The basis for this thesis is provided by a large number of previous research projects. 
One of the earliest successful models of this type was developed by Aziz and Hellums 
[Ref. 3] at Rice University in Houston, Texas. They expressed the Navier-Stokes 
equations in terms of vorticity and vector potential, then solved the resulting three di- 
mensional finite difference equations using a combination of the alternating direction 
method and successive over-relaxation (SOR). Later work by Mallinson and de Vahl 
Davis [Ref. 4}, Morrison and Tran [Ref. 5]; Chan and Banerjee [Ref. 6]; Ozeo, Fujii, Lior 
and Churchill [Ref. 7]; and a host of others have all expanded on the use of finite dif- 


ference techniques to model convective heat transfer in closed compartments. 


In the late 1970's and early 1980's, R.G. Rehm and I]1.R. Baum began developing 
equations to describe the buoyant flow induced by large scale fires [Refs. 8, 9, 10 and 
11] Work done at the University of Notre Dame used a two dimensional finite difference 
field model to predict velocities, temperatures and smoke concentrations in aircraft cabin 
fires [Ref. 12 and 13]. The development of a two dimensional model of transient, natural 
convection cooling was developed, and experimentally verified, by Nicolette es al [Ref. 
14] using a semi-implicit upwind differencing scheme and global pressure corrections. 
Still more studies [Refs. 15, 16, 17, 18 , & 19] have utilized finite difference methods to 
solve non-linear, three dimensional partial differential equations for rectangular enclo- 


SUTES. 


C. THE FIRE TEST FACILITY 

A full scale test facility has been constructed at the Naval Air Warfare Center 
(NAWC) at China Lake, CA. This facility, designed to simulate full scale shipboard 
compartments, consists of three chambers [see Figure | on page 4 and Figure 2 on page 
5]. The main chamber measures 20 feet by 20 feet by 10 feet and is vented to the at- 
mosphere through an opening in a side wall, in a manner intended to simulate the pen- 
etration of a missile or other projectile. The second chamber measures 15 feet by 15 feet 
bv 10 feet is located adjacent to the main chamber to the east, while the third chamber, 
also measuring 15 feet by IS feet by 10 feet, is located on top of the main chamber. 
These secondary chambers are intended to provide a means to study the vertical and 
horizontal heat transmission rates. [Ref. 2, pp. 7-10] 

The entire test structure 1s constructed of 3/8 inch thick steel bulkheads‘walls rein- 
forced by S inch I-beams on 5 foot centers, and 1/2 inch thick steel decks reinforced 
underneath by 12 inch I-beams on 5 foot centers. Additional support was provided for 
the overhead in the main chamber by several 5 inch Il-beam columns. These columns 
were intended to eliminate any sagging and/or distortion of the overhead as it is repeat- 
edly cycled from ambient conditions to the extreme temperatures expected during the 
missile fuel tests. Access to all three compartments is through hatches which open to 
the outside of the structure and are kept closed during all testing. There are no openings 
between any two adjacent chambers. The ventilation opening 1s located on the north 
face of the main chamber to simulate an impact hole, such as a missile strike [see 
Figure 3 on page 6 and Figure 4 on page 7]. [Ref. 2, pp. 10-12] 

Instrumentation is provided within the test chamber to measure radiation heat flux, 


total heat flux, compartment bulk pressure, wall temperatures and compartment gas 
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Figure 2. Plan view of fire test chamber at NAWC, China Lake, CA. 
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Figure 3. North/south elevations of test chamber at NAWC, China Lake, CA. 
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Figure 4. East/west elevations of test chamber at NAWC, China Lake, CA. 


temperatures. Thermocouples were arranged in vertical arrays of 10 thermocouples. 
The lowest thermocouple in each array was placed 6 tnches above the deck with subse- 
quent thermocouples spaced at | foot intervals ending 6 inches below the ceiling [see 


Figure 5 on page 9]. [Ref. 2, pp. 14-15] 


D. THE COMPUTER PROGRAM 

This computer model ts a joint project undertaken by the Naval Postgraduate 
School and the University of Notre Dame. It represents a low cost, safe alternative to 
full scale fire testing. With proper modifications, and properly validated by full scale 
experimentation, this program should provide a valuable tool for testing the effectiveness 
of fire mitigation techniques and evaluation of new ship designs. 

Work on this program began at Naval Postgraduate School in 1986 when Nies [Ref. 
20] used a cartesran coordinate system to model the cylindrical spherical geometry of the 
FIRE-1 test facility. In 1987 Raycraft [Ref. 21] modified the program to use a 
cylindrical spherical coordinate system. She also expanded the scope of this project by 
Writing a companion program to calculate view factors and account for surface radiation 
effects. Using both of Raycraft’s programs, Houck [Ref. 22] further expanded the scope 
of the project to account for the internal ventilation capabilities of the FIRE-1! facility. 
Most recently, in 1991, McCarthy [Ref. 23] used advanced computer graphics techniques 
to provide a more accurate pictorial representation of the unique geometry of the 
FIRE-1 facility and demonstrated the advantages of using full color displays to represent 
the three dimensional rsotherm and velocity vector field profiles. Thrs development 
greatly enhanced the presentation of the program output. McCarthy was also the first 
researcher at NPS to mncorporate Raycraft’s radratron/view factor program as subpro- 
grams of the main computer code. 

This thesis returns to the cartesian coordinate system used by Nies [Ref. 20], to 
model the Navy's newest fire test facility at the Naval Air Warfare Center (NAWC) at 
China Lake, CA. It also advances McCarthy’s [Ref. 23] work by applying the enhanced 
graphics capabilities of the NCAR Graphics software, developed by the National Center 


for Atmospheric Research [Refs. 24 and 25], for output presentation. 
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Instrumentation of fire test chamber at NAWC, China Lake, CA. 


Figure 5. 


Hl. THE NUMERICAL MODEL 


A. THE GOVERNING EQUATIONS. 

The model used in this code is built on the fundamental laws of conservation of mass 
(continuity), energy and momentum. One example of these equations is presented by 
Patankar [Ref. 26, pp. 11-17]. As in that work, this model neglects the pressure work 
and viscous dissipation terms of the energy equation due to the low flow velocities ex- 
pected. The volumetric heat generation term will be used to account for heat input by 
the fire. Patankar’s version of the momentum equations [Ref. 26, p. 14, eq. 2.11] in- 
cluded both a body force and an extra viscous force. This model assumes a newtonian 
fluid therefore the extra viscous force is neglected and the only body force present is due 
to gravitational effects acting in the negative z-direction. Thus the body force in the 
Z-momentum equation 1s set equal to — pg where g 1s the local gravitational constant; 
the negative sign indicates that g 1s acting in the negative z-direction; and p 1s the fluid 
density. 

Nies [Ref. 20, pp. 16-38] expanded the equations presented by Patankar into the 
three dimensional, cartesian coordinate system used in this model. Following the de- 
velopment pattern of Doria [Ref. 18, pp. 4-7] and making the assumption that air is a 
homogeneous gas of constant composition (reactive variations due to the fire are neg- 
lected), Nies [Ref. 20, pp. 16-17] incorporated the equations of state for an ideal gas with 


constant specific heats in the form: 
P= phen 
and 


—— eA Nei 


where P, T and p represent the bulk pressure, temperature and density inside the control 
volume, R 1s the gas constant for air, h is the specific enthalpy, c, is the specific heat and 
7, 


ig 


iS a Suitably chosen reference temperature. 
Again, following the procedures developed by Patankar [Ref. 26] and expanded by 
Doria [Ref 18], Nies [Ref. 20, pp. 21-26] goes on to place these six equations in their 


non-dimensional, integral forms. After subdividing the test chamber into a large, but 


10 


finite number of control volumes, finite difference techniques are used to solve for the 


six unknowns of temperature, pressure, density and the three components of velocity. 


B. THE CONTROL VOLUME. 

Each control volume, or cell, 1s defined by the nodal point contained at its center. 
Valucs for temperature, density and pressure are calculated at this central point (desig- 
nated P) and are then assumed to hold for the enure cell. A secondary, or staggered grid 
system, 1s used to determine velocities. This staggered grid is offset from the main grid 
by once half the length of the cell [sce I-igure 6 on page 12}. As explained in McCarthy 
[Ref. 23, pp. 18-19] and Patankar [Ref. 26, pp. 115-120], use of this staggered grid alle- 
Viates two problems: first, since velocities are dependent upon pressure differentials, the 
staggered grid allows pressures to be determined at a more frequent interval thereby re- 
ducing the error associated with larger separations between nodal points; second, the 
Stagger increases stability by decreasing and/or eliminating unrealistic, oscillatory veloc- 
ity ficlds when adjacent velocities are used to sausfy the continuity equation. 

Since Patankar’s method uses primitive variables, in lieu of the stream function and 
vorucity, special attention must be paid to the coupling of equations through the pres- 
sure terms. An itcrative process 1s used to calculate the pressure in each cell, then a local 
pressure correction 1s calculated to ensure that continuity 1s satished. Additional dis- 
cussions of this correction are included in both Patankar [Ref. 26, pp.120-128] and Doria 
[Ref. 18, pp. 26-32]. A global pressure correction was described by Nicolette, et af [Ref 
14] for addressing net energy changes within the closed compartment. This correction 
has also been incorporated into this model. 

As stated in McCarthy [Ref. 23, p. 19], forcing convergence on a non-linear set of 
equations, like those describing fluid flow, can be difficult. A variety of schemes have 
been developed, euch with its own set of strengths and weaknesses. ‘This model apphies 
iterative techniques to a solution scheme known as “QUICK”, or Quadratic Upstream 
Interpolation for Convective Kinematics, developed by Leonard [Ref. 19]. With the ac- 
curacy of a central differencing scheme and the stability of the convective diffusion terms 
in upwind differencing, the QUICK scheme estimates values and gradients of the trans- 
port variables at the cell faces. The utility of this method was demonstrated by II.Q. 
Yang [Ref. 27] when he used QUICK to solve the coupled momentum and energy 
equations for three dimensional] flow in a tilted rectangular enclosure. 

In addition to the center cell described above, neiyhboring cells will be used in vari- 


ous computations. To keep track of these cells a standardized nomenclature must be 
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Figure 6. One Dimensional Basic and Staggered Computational Cells. 


adopted. Assuming the central cell. cell P, to be located at the point (1.;,k) where 1.) and 
k correspond to the standard coordinated axis x. v and Z respectively, then each neighbor 
may be described as follows (NOTE: the following directions are for standardization of 
nomenclature onlv and do not necessarily correspond to compass directions as shown 
in Figure 1 on page 4): 

East (alee) 

West (1-1.),K) 

LONI Lhe tas) 

South (1,j-1,k) - 

Prone ick) 

Back (1.],k-1) 


The nodal point in each direction is designated by the capital letter corresponding 
to the direction (i.e. E, W, N, S, F, B), while the boundary between cell P and its 
neighbors is designated by a lower case letter corresponding to that direction (i.e. the 
boundary between cell P and cell N is designated n, and the boundary between P and F 


is f). A typical cell array on a rectangular grid is shown in figure Figure 7 on page |3. 





Figure 7. Basic Cell Nomenclature on a Rectangular Grid. 


As discussed previously, each P node is used to determine values of density, pressure 
and temperature which are them applied to its entire cell. Velocities are determined at 


the cell faces using the staggered grid arrangement described above. 


C. DISCRETIZATION OF THE CONSERVATION EQUATIONS. 

With that brief background, the integral forms of the conservation equations devel- 
oped Nies {Ref. 20, pp. 25-26] may now be discretized. As discussed by Nies [Ref. 20, 
pp.26-38] maximum stability and accuracy of the model is achieved by using three dif- 
ferent finite differencing schemes. Forward differencing is used for timewise 
discretization, central differencing 1s used to discretize the diffusion terms, and the 
QUICK scheme is used to discretize the convective terms. Use of these techniques to 
discretize the governing equations was discussed in detail by Nies [Ref. 20, pp 26- 38] 
and will not be repeated here. The following finite difference forms of the governing 
equations are taken from his work. 

1. The Continuity Equation. 


AxAvAz 
(Pp- Do) —— C—O Op Ac Gyacon (Gp jJAxay— S77, 


where p, is the density at the current time step; p$ is the density at node P at the previous 
time step; Ar is the incremental time step; Ax, Ay, and Az are the cell dimensions in the 


indicated direction; and S? 1s the residual mass term. The mass flux (G) terms are de- 


fined as: 

G,= ——* U, 
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It should be noted that tn all of these equations p refers to the density; u, v, and 
Ww are the three velocity components in the x, y, and z-directions respectively; uppercase 
subscripts denote values at the indicated nodal point; and lowercase subscripts denote 
values at cell faces. Also, in order for continuity to be satisfied in this closed system, the 
residual mass term (S,,,) would equal zero. However, due to the approxunation inherent 
in the numerical scheme, we will be satisfied if S,, tends toward zero as determined by 
comparison to an arbitrarily small threshold value. 

2. The Energy Equation. 
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where / is the specific enthalpy at the current time step; /° is the specific enthalpy at the 


previous time step; and the coefficients (H) are defined as: 
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Also used above are the turbulent Revnolds number (Re,) and the turbulent Prandtl 


number (Pr,). These are defined as 
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where I1 is the characteristic length (defined as the height of the test chamber in our 
model); p and c, represent the density and specific heat of air, while the subscript 0 in- 
dicates that the properties are to be evaluated at the initial conditions which existed prior 
to ignition of the fire; u, is the reference velocity (set equal to 1.0 ft/sec); and pw, and 
k., are effective values of viscosity and conductivity as defined by Nies [Ref. 20, p. 39-40]. 
3. The Momentum Equations. 

As stated by Nies [Ref. 20, p. 31] the momentum equations are more complex 
than the previous equations because of the use of the staggered grid and the addition 
of the shear stress terms. Staggered grids are determined by shifting the main grid one 


half cell in the negative direction along one axis at a time. Maintaining the nomencla- 


ture established for the basic, centered cells, the central node of a cell staggered in the 
x-direction becomes w, the central node in a cell staggered in the y-direction becomes s, 
and the central node in a cell staggered in the z-direction becomes b. Likewise, the faces 
of the staggered cell are designated by the capital letters representing the basic nodes 
through which they pass. Thus, in the staggered grid P always represents the positive 
face along the axis where the shift (stagger) 1s being evaluated. Thus, the x-momentum 


equation becomes: 
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Development of the equations for y and z-momentum proceed in a similar 


fashion and will not be repeated here 1n the interest of brevity. 


D. PRESSURE CORRECTIONS. 
1. Global Pressure Corrections. 
As described by Nies [Ref. 20, pp. 50-52] and McCarthy [Ref. 23, pp.47-48], in 
a fixed mass - fixed volume system, overall pressure depends on the net energyeauded 
or removed from the system. Nicolette, et al, [Ref. 14] demonstrated that in such a 
system, with a uniform grid,the sum of the product of density times volume for all of the 
cells remains fixed at the total mass of the system. Therefore, at any time during the fire, 
the total mass of the system must equal the initial mass at the equilibrium density which 


existed before the fire was ignited. This may be expressed as: 
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Since the grid is uniform, the term (AxAyAz), is a constant, independent of time, 1t may 


be divided out of both sides of the equation leaving: 
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Now, since we are operating under the assumption that the fluid inside our burn cham- 
ber 1s an ideal gas, and recalling that we are also working in a fixed volume environment, 


the density (p) may now be expressed as a function of pressure and temperature only. 
P; = f\P,7); 


The actual pressures and temperatures may now be expressed as the sum of an estimated 


value (P* and 7*) and a global correction (P, and 7,). 
PP Ps 
f=T +7, 


Now applying the ideal gas law and substituting into the summation relation shown 


above, we can solve for the global pressure correction as 
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This relation is then iterated until a global pressure correction is obtained which con- 
serves mass for all the cells. 
2. Local Pressure Corrections. 

As explained by both McCarthy [Ref. 23, pp.49-51] and Nies [Ref. 20, pp. 
52-54], the method for obtaining the local pressure correction was developed by 
Patankar [Ref. 26, pp. 120-126] and Doria [Ref. 18, pp. 26-32] and is similar to the 
method used for determination of the global pressure correction. For this correction, the 
pressure distribution found during the previous time step 1s used to estimate the velocity 
field. Continuity is then applied and residual mass terms (S,,,) are calculated for each 
cell. Based on these residual mass terms a pressure correction 1s estimated and the 
process 1s repeated until the values of S,, fall below a previously established threshold 
value at which point the final value of the correction 1s now known. As in the determi- 
nation of the global pressure correction, the total pressure 1s expressed as the sum of the 


estimated pressure and the local correction. 


P= P* + P 


where P is the total pressure, P* 1s the estimated pressure, and P’ is the local pressure 
correction. The local pressure correction may now be expressed in its finite difference 


form 
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At solid boundaries where the mass flux (G) is zero, the appropriate coefficient (A) 
corresponding to that boundary is also set equal to zero. - 
After the local pressure correction (?’) is determined, new velocities are deter- 


mined from the following relations: 


where 


(P" p — P' wAyAz 


AxAyAz 
DTS ae 


? 


ee 


(P'p — P’)AzAx 


AxAyvAz 
eae oe rae ara 


(P’ pp — P’,)AxAy 
AxAyAz 
At 


y= 


A, + Pp 


The residual mass (S,,) is again compared to the threshold value and the entire 


process 1s iterated if necessary. 


E. INITIAL AND BOUNDARY CONDITIONS. 

Before this system of equations can be solved, appropriate initial and boundarv 
conditions must be determined and applied. As in the previous work conducted by Nies, 
Raycraft, Houck and McCarthy [Refs. 20 , 21, 22, and 23], these conditions are estab- 
lished as follows: 

1. Initial Conditions. 

The initial conditions for the model are determined by the conditions existing 
inside the test chamber just prior to starting the fire. It is assumed that the air is uni- 
formly at rest, thus all components of velocity are set equal to zero throughout the 
chamber. The temperature inside the chamber is assumed to be uniform and equal to 
the ambient temperature outside the chamber, therefore the non-dimensional temper- 
ature field is set equal to 1.0 throughout the model. Finally, pressure and density are 
also assumed to be uniformly distributed and in static equilibrium. 

2. Boundary Conditions. 

The chamber walls are constructed of standard 3/8 inch sheet steel [Ref. 2, p. 


10], therefore they are presumed to be non-porous. This allows all velocity components 


p44 


to be set equal to zero at the wall (the so called “no slip” condition), and the mass flux 
across the wall is also set to zero (the “impermeable wall” condition). Since there is no 
heat generation inside the walls of the chamber, it can be assumed that no discontinuities 
exist between the temperature of the surface of the wall and the air immediately adjacent 
to it. Therefore the inside surface temperature of the wall must be identically equal to 
the temperature of the fluid immediately adjacent to it. These condition may be ex- 


pressed as follows: 
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Finally, conservation of energy must also be satisfied at the wall. Therefore 
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where n represents the inward pointing normal at that location; and g, represents the 


energy transfer due to thermal radiation. 


F. MODELING OF PHYSICAL PHENOMENA. 
1. Wall Conduction. 

Heat losses through the walls are calculated assuming one dimensional, un- 
steady heat conduction through walls of uniform conductivity. A constant convective 
heat transfer condition is assumed to exist between the exterior of the wall and the en- 
vironment. 

2. Turbulence. 

As explained by McCarthy [Ref. 23, pp. 15-16] and Nies [Ref. 20, pp. 39-40] the 
turbulence model used in this code is a simple algebraic model first developed by Nee 
and Liu [Ref. 28]. This model calculates an effective viscosity (u,,) and an effective 
conductivity (k,,) for recirculating buoyant flows with widely fluctuating turbulence lev- 
els. Development of these equations, as used in this model, is shown 1n Nies [Ref. 20, 
p. 39-40]. 


ue 


3. Radiation. 

The radiation model used in this code considers only surface radiation while 
considering the gas and smoke to be transparent. Developed and explained in detail by 
Ravcraft [Ref. 21], the model 1s based on the net radiosity method discussed by Sparrow 
and Cess [Ref. 29]. As summarized by McCarthy [Ref. 23, p. 17], the model treats both 


the chamber walls and the flame areas as grey, diffuse surfaces. 
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Il. THE COMPUTER PROGRAMS 


A. INTRODUCTION. 

Running the computer code for this project, from initial data input to final graphical 
output, 1s a three step process. Initial input is accomplished using the program 
FIREBLD; numerical data output is generated by the program FIRE; and final graph- 
ical output 1s provided by the programs ISOTHERM and VELOCITY, both of which 
are Written to utilize the graphics software developed bv the National Center for Atmo- 


spheric Research (NCAR). 


B. PROGRAM FIREBLD. 

Program FIREBLD [Appendix A] is used to build and or modify the data file 
FIRE.DATA which provides the input data required to run the main code, FIRE. On- 
ginally part of SUBROUTINE INPUT in FIRE, FIREBLD represents an effortmasia 
prove the “user friendliness” of the code. It accomplishes this by creating an interactive 
Input environment which attempts to minimize the user’s need for detailed knowledge 
of the internal operation of FIRE. As the user friendliness of the SUBROUTINE IX- 
PUT increased, so did its length. It quickly became the largest subroutine in FIRE, and 
in an effort to streamline that code, it was converted into a separate program. This 
conversion had two advantageous effects: 


1. It increased the run time options for FIRE by eliminating the need for direct op- 
erator input while running the program. This allows FIRE to take advantage of 
the ume savings associated with running in background and or batch modes; and 


Na 


Elimination of the necessity for direct operator input has reduced the total run time 
of the code (FIRE) by placing the slow process of data input in a separate program. 
FIREBLD is designed to query the user regarding the various input parameters, 1n- 
dicating the proper units when appropriate. It begins by looking for a previously created 
input file. If one is found the user is asked if it should be used, a negative response 
causes program termination, While a positive response causes the data file to be read. 
The program then continues by displaying the existing data and asking the user if any 
changes are desired. If a previously created input file is not located, FIREBLD auto- 


matically enters input mode and prompts the user for the required information. 


Some of the input data used in this project is shown in Table | on page 25 and 
Table 2 on page 26. Additional data which may be input at the user’s discretion in- 
cludes: 

Thermocouple data, including number and location. The present code is limited to a 


maximum of 20 thermocouples, but this may be changed with only minor modifica- 
tions to the code. 


Mass source data, including location and size. This portion of the code was not re- 
quired for this project and therefore has not been tested. 


Internal solids data, including location, size, conductivity, specific heat, and fan speed. 
The fan speed included here is for internal ventilation contained wholly inside the test 
chamber. This 1s similar to the ventilation incorporated into the code by Houck [Ref. 
22 |]. The problems experienced by McCarthy [Ref. 23] in association with this venti- 
lation, have not been seen here. It should also be noted that the external chamber 
walls are input as internal solids. 


Table 1. INPUT DATA 


—— SS Direction 
ee | os | yy [Tz 
Chamber dimensions 


Length (Fen 


W wall thickness (inches) | thickness | Wall thickness (inches) Se 


Floor ‘ceiling thickness 
(inches) 


Number of Computational Cells 


ee 
Fire location 

[startingnode sd dT 
[Ending node +d id] 
Total length ofron PSC 


plotting 


Fire start time ee 
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Table 2, WALL DATA: The following data is input through FIREBLD to iden- 
ufy the location of the chamber walls. 


a 6 
ao 
(Waleisanmgenode Oo) 
[Wail #1, number ofnodes | 1 [21 
Wall #2, staring noe | 0 [0 | 0 
[Wall #2, number ofnodes | 21 1 | 


Wall 3 (floor), starting 
node 


Wall #3. number of nodes aie 


Wall #4 (ceiling), starting 
node 


[Wall nib oteades [ai [at 
Wall #5, starting node [0+ | 

[Wall v5-number ofnedee [an 
PWallx6,startingnode | 21 =| 0 [| 0 
[Wall #6,number ofnodes | 1 [rsd] 
eee eee) (ee nnn ae) er i L  C—“S—“(‘C;CCTC*™ 















C. PROGRAM FIRE. 

Operational details of the main program FIRE [Appendix B] are provided by 
McCarthy [Ref. 23, pp. 55-56]. The only significant difference between his version of the 
program and the present version (neglecting the obvious difference of compartment ge- 
ometry) 1s that the separate program required by McCarthy for the generation of view 
factors, is incorporated into the present code as a subroutine, SUBROUTINE VIEW. 
Also, the present code inputs the wall locations and properties as “internal solids”, as 
noted above. 

Heat input from the fire is modeled as a volumetric heat source based on the di- 
mensions of the fire as provided by FIREBLD. The magnitude of*this heat source is 
calculated in SUBROUTINE CALQ. It is based on the known heat of combustion of 
the fuel used (2600 Btu/lbm, as provided by NAWC, China Lake, CA) and an estimated 
burn rate of 1.0 lbm/sec. However, due to temperature and velocity instabilities associ- 


ated with this high heat generation rate, it was necessary to reduce the burn rate by two 
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orders of magnitude to 0.01 lbm/sec in order to achieve stable output data. Increasing 
the burn rate to its proper level would necessitate reductions in the time step used, and 
require multiple data runs to confirm stable output. Due to time restrictions placed on 
completion of this work, those additional data runs were left for later investigators. 

In making comparisons to McCarthy's work [Ref. 23, p. 55], it 1s interesting to note 
that he used the VAXSTATION 3100 which required approximately 3600 seconds of 
CPU time to process one second of fire time. The current work required approximately 
677 seconds of CPU time per second of fire time, utilizing the AMDAHL #### 
mainframe processor here at Naval Postgraduate School. Even when performance 1s 
broken down further, to a CPU seconds per fire second per cell basis, the AMDAHL 
out performs the VAX by a 5.5 or 6 to | margin. Although no attempt was made to 
determine the source of this improvement, the majority of it can be attributed to the 
increased clock speed of the AMDAHL machine, which unconfirmed estimates place at 


approximately 4 to 1 over the VAX. 


D. GRAPHICAL ANALYSIS. 

The value of graphical analysis was successfully demonstrated by McCarthy [Ref. 
23]. This work utilizes a different graphics software package in order to standardize the 
software used at both Naval Postgraduate School and the University of Notre Dame. 
The software package chosen, NCAR Graphics, was created at the National Center for 
Atmospheric Research (NCAR) and is intended specifically for scientific applications. 
The primary advantage of NCAR over the previously used graphics software is in the 
flexibility of output presentation built in to the NCAR software. 

The two graphics program used in the present study, ISOTHERM [Appendix C] and 
VELOCITY [Appendix D} each utilize the three dimensional PLOT.DATA file created 
by FIRE to generate two dimensional temperature and velocity profiles as requested by 
the user. Each program allows the user to specify the desired two dimensional view (or 
section) (1.e. Plan view, X-Z profile, or Y-Z profile) and the location (or elevation) in the 
third dimension where that section is to be taken. Each program then performs two 
linear interpolations, the first to locate the requested section, and the second to convert 
the grid used by FIRE to a umiform grid as required by the NCAR Graphics software. 

Scaling of the output in each program is accomplished in different manners. VE- 
LOCITY sets the maximum vector size in any given plot by the maximum interpolated 
velocity for that section (NOTE: velocities are shown in centimeters per second). While 


the color scale used in each plot generated by ISOTIITERM is determined by dividing the 
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range from ambient (70 ° F = 21.1 ° C) to the maximum temperature in the non- 
interpolated data into 14 color zones. These scaling techniques are examples of the 
flexibility of the NCAR Graphics software, and each user may customize the output to 
satisfy the current needs desires with minimal effort. 

Color isotherm graphics are printed on a DEC LJ250 Companion Color pminter us- 
ing ink jet technology, attached to a VAXStation 3100 M38 standalone workstation. 
Velocity profiles are printed on a DEC LNO3 Laser printer attached to the VAX cluster 
in the Mechanical Engineering Department at the Naval Postgraduate School. The 
following figures [Figure 8 on page 29 through Figure 25 on page 46] show the tem- 
perature and velocity profiles for each of the available view planes at 30, 60 and 90 sec- 
onds of fire time. Elevations are shown on each figure and were chosen to provide a 
plan view at mid-compartment height and profiles through the fire. Also included in 
both ISOTHERM and VELOCITY is the option to “zoom” in on any locahzed region 
of the plot as desired by the user. Figure 26 on page 47 and Figure 27 on page 48 
demonstrate this capability. Note also, that the axis on all of these plots are marked (in 


feet) to indicate the section being viewed. 
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PLAN VIEW (Z = 5.0 FT.) AT 30.0 SEC. 
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Figure 8. Temperature Profile, Plan View, 30 seconds. 
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Figure 9. Temperature Profile, Plan View, 60 seconds. 
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PLAN VIEW (Z = 5.0 + ) AT 20.0 SEC. 
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Figure 10. Temperature Profile, Plan View, 90 seconds. 
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Temperature Profile, X-Z Profile, 30 seconds. 


Figure 11. 
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Temperature Profile, X-Z Profile, 60 seconds. 


Figure 12. 
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Fieure 13. 
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Figure 14. 
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Figure 15. 


36 





{(SNISTAD) SSALVAUIASL 
&va8 Bere Geet eer rae Led Poo whit Feat Meek a°ore 4 8=6o8'da aw Oh 








ee ee Ee ——s 


iat 


’ 
e 
= 
~~ 
eas rere 


‘ 
amr atownngiat ss err en 
“ cdacepepaceacncsaszanecenad™t™ 


rune tf 


=" wages 





anos r a Pp me 
3 = “ = =. 2 le an nema ? 
Pooohersesaqseroteney eee cod 


SAS 0-06 re? “Li G6 = Xi viiodd Z—) 


Temperature Profile, Y-Z Profile, 90 seconds. 


Figure 16. 
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Figure 17. 
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Figure 18. 
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Figure 19. Velocity Profile, Plan View, 90 seconds. 
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Velocity Profile, X-Z Profile, 30 seconds. 
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Velocity Profile, X-Z Profile, 60 seconds. 


42 


eee Oni ee OOOsmn,) Aie® OO (SEC. 


20.0 


a a a an a i aaa Mie N 


ee 





OO! (MIG-—Z) LHDIZH 00°0 


Velocity Profile, X-Z Profile, 90 seconds. 
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Figure 23. 
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Velocity Profile, Y-Z Profile, 30 seconds. 
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Velocity Profile, Y-Z Profile, 60 seconds. 
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Figure 25. Velocity Profile, Y-Z Profile, 90 seconds. 
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IV. CONCLUSIONS AND RECOMMENDATIONS 


CONCLUSIONS. 

Program FIREBLD represents a marked improvement in user friendly data input 
fom E, 

Additional improvements can be made in user friendliness of FIREBLD, and thus 
FIRE. Specifically, all locations and dimensions should be input as length meas- 
urements (1.e. feet or meters) by the user. 

The burn rate used by SUBROUTINE CALQ in program FIRE 1s artificially low 
and must be increased before the code can be properly validated against actual test 
data. 

The NCAR Graphics software provides increased flexibility in graphics output over 
the previously used graphics package. 

The temperature and velocity profiles generated by this work appear to have the 
expected characteristics of an actual fire. Further testing and comparison to actual 
test data is necessary for validation of the code. 

The ink jet printer used to create hard copy graphical printouts of the data in this 
work is slow and of marginal quality for professional publication. Improved 
graphics printing capabilities should be pursued. 

RECOMMENDATIONS. 

Increase user friendliness of FIREBLD by putting all input in terms easily deter- 
mined by the user. Specifically: 

Input locations in terms of length measurements vice nodal locations. 

User should have his choice of units (SI or English) when inputting data. 

Input data should not require anv manipulation by the user prior to entry. 
Increase the burn rate used by SUBROUTINE CALQ in program FIRE to realistic 
levels and adjust size of time step as necessary to achieve stability. 

Expand FIRE to completely model test chamber at the Naval Air Warfare Center, 
China Lake, CA. Specifically, include the natural vent and adjacent compartments. 
Validate model against actual test procedures and results from Naval Air Warfare 
Center, China Lake. 

Examine alternative graphical presentation schemes available with the NCAR 
Graphics software. Specifically, test feasibility of combining isotherm and velocity 
plots into single output. Also, examine use of NCAR Graphics movie making ca- 
pabilities to provide a “real time” representation of data. 

Enhance clarity of graphics printouts by procuring access to a laser quality color 


printing. 


49 


APPENDIX A. PROGRAM FIREBLD 


This program 1s used to build and or modify the input data file required by the main 


program, FIRE. 
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* THIS PROGRAM BUILDS AND/OR MODIFIES THE INPUT DATA FILE REQUIRED FOR * # 
* THE PROGRAM LISTED ABOVE. 
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NCHIP 
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NWRP 
NTHCO 
TMAX 
XTMAX 
TWRITE 
TTAPE 
DTIME 
XDTIME 
HSTART 
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RESTART INDICATOR 

NUMBER OF INTERNAL SOLID PIECES 

NUMBER OF MASS SOURCES 

NUMBER OF TIME STEPS BETWEEN WRITES TO OUTPUT FILE 
NUMBEK OF THERMOCOUPLES TO PRINT OUT 
NONDIMENSIONAL MAXIMUM TIME ALLOWED 

MAXIMUM TIME ALLOWED (SECONDS) 

TIME BETWEEN FIELD VARIABLE OUTPUT (SECONDS) 
TIME INTERVAL BETWEEN PLOTS (SECONDS ) 
NONDIMENSIONAL TIME STEP 

TINE Ss JEP SGskCONDs) 

FIRE START TIME (SECONDS ) 

STARTING NODE OF HEAT SOURCE, X-DIR 


S0 


ICHPB 
ICHPB 
JCHPB 
KCHPB 
NCHPI 
NCHPJ 
NCHPK 
IMSB 
JMSB 
KMSB 
NMSI 
NMSJ 
NMSK 
RMS 


ohooh ck oh ook ook ob ob ook ook ook ook ook ook sk ook ook ck och oof oof 


NHSZ(2, 1) 
NHSZ(3, 1) 
NHSZ(1, 2) 
NHSZ(2, 2) 
NHSZ(3, 2) 


| | | | DY 


CX,CY,CZ = 


bea) BIE 
Mb Mle se 


ENDING NODE OF HEAT SOURCE, X-DIR 
YeUTK 
Z-DIR 


FIRST NODE OF INTERNAL SOLID IN X DIR 
Pekol NODEOr INTERNAL SOLITDVIN xX DIK 
Y DIR 
Z DIR 
NUMBER OF INTERNAL SOLID NODES IN X DIR 
YO OTR 
Zo DIK 
FIRST MASS SOURCE NODE IN X DIR 
Y DIR 
Z DIR 
NUMBER OF MASS SOURCE NODES IN X DIR 
Y DIR 
Z DIR 


DIMENSIONLESS MASS SOURCE 


(= CFM/(60.*H*¥*2*U0*NMS I*NMSJ*NMSK ) 


THERMOCOUPLE POSITIONS IN X,Y,;2 


maha hn akan whan tahini achie Sun entiee ena enka tntien aki akin on taer wfiee abso anes akin tafe acken akon arker ark akin aban anhen akin akon akin ake akan akin akan Sun efan kis aber atio aden hun akon akin akin aden akon wher akon akin akin aken aker whe ater aden whe akon olen ahen olin ahes akon afin ohn ake ale ale ole ale whe ale ale 
SR GR GN FR EDR GY ARGS DAL ER GEER GR GS ARGU GD GR ADIN ER GLAD EL ES GR GL EDEN GN GL GL GL GL GN AUG ED EDGY EY ED FS OD GD ED ED FD GD GL GD ELEY EV GL EDGR CC GL ELEN EL ELT EV CLEC ELEN EY AN ES 


*DATA FILES USED IN THIS PROGRAM: 


ol. 
ry 


pe 
qe 


FILE # 10 = FIRE DATA Bl 


INITIAL SET-UP DATA 


eka eke ken whine akan when akan akin ake whi whan ahie anks afer rohin wohin wohin when akin akan whic ales when akin hie wofin whan akan alin akan hen akon akan Sin akin when akon akin ahr eben when akon akin afer ohn alien akin ale ake ake ake ale alin ohn ale afer ales afin ake ale ake ales ake ake ale ats ale ale ats ale at. 
GR GR AL AE Ae AR AY ER GR AR AR AL GL GL AL AR GR ER GR ELEY GE ER AL EL AL GD ID AR EY GL GR GL GR ED AR EN EL GR AN AN AU AY ER EL ED AN ERED AN GYAN GS GR ALAN ARAN ELAN EN AL ER ER ER GN AN AN OR OR ON ON 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
CHARACTER ANS*1 

GOGECAL. in1 

DIMENSION ICHPB(20) ,NCHPI(20) , JCHPB( 20) ,NCHPJ(20) ,KCHPB(20), 
NCHPK(20),CPS(20) ,CONS( 20) ,WFAN( 20), IMSB(20) ,NMSI(20), 
JMSB( 20) ,NMSJ(20) ,KMSB( 20) ,NMSK( 20) ,RMS( 20) ,CX(30), 


R77 


CxC30) 404020) NHSZt 3,2) 


PARAMETER (U0=1.0) 
INQUIRE (FILE='/FIRE DATA B1' ,EXIST=L1) 
IF (L1) THEN 

PRINT *, ‘INPUT DATA FILE FOUND! ' 
PRINT * 

PRINT *,'DO YOU WISH TO USE IT FOR INPUT?’ 
READ (*,*) ANS 
IF(INDEX(ANS, 'Y').GT.0.OR,INDEX(ANS, ‘'y').GT.0) THEN 


C *** READ IN DATA FROM EXISTING DATA FILE 
OPEN(10,FILE='/FIRE DATA B1',STATUS='OLD') 
READ(10,*) X,Y,H,TFLR,TWAL,TA 
READ(10,*) NI,NJ,NK 

READ(10,*) NCHIP,NMS,NWRP,NTHCO 


READ(10,*) 
READ(10,*) 


Nio7Zo5)) Nisa, 2) 


IF (NCHIP.LE.0) GOTO 33 

DO 32 N=1,NCHIP 

READ(10,*) ICHPB(N),NCHPI(N),JCHPB(N) ,NCHPJ(N),KCHPB(N), 
NCHPK(N) ,CPS(N) ,CONS(N) ,WFAN(N) 


S1 


TMAX, DTIME , TTAPE , TWRITE ,HSTART 
NHSZ(1,1),NHSZ(1,2),NHSZ(2,1) ,NHSZ(2,2), 


a2 
39 


36 
37 


38 


CONTINUE 
IF (NMS.LE.0) GOTO 37 
DO 36 N=1,NMS 
READ(10,*) IMSB(N),NMSI(N) ,JMSB(N) ,NMSJCN) ,KMSB(N), 
NMSK(N) ,RMS(N) 
CONTINUE 
DO 38 I=1,NTHCO 
READ) (10.7) CxCIRCY Ol 1 .6ZGry 
CONTINUE 


C *** UPDATE EXISTING DATA 


C whe ales als 
erie. 


UPDATE COMPARTMENT DIMENSIONS 


PRINT *,'CURRENT DATA: ' 


PRINT * 

PRINT * , COMPARTMENT DIMENSIONS ' 

PRINT x! LENGTH (X DIRECTION) een FEET 
PRINT *,' WIDTH (Y DIRECTION) > .Y, FER 
PRINT *,' HEIGHT (Z DIRECTION) tee ee FEET ' 
PRINT *,' WALL THICKNESS ' ,TWAL, ' INGHES® 
PRINT *,' FLOOR/CEILING THICKNESS. ',TFLR,' INCHES’ 
PRINT * 


PRINT *,'DO YOU WISH TO CHANGE ANY OF THESE VALUES?' 
READ(5,*) ANS 
IF( INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS,'y').NE.0) THEN 
PRINT *,'DO YOU WISH TO CHANGE THE LENGTH?' 
READ(5,*) ANS 
IF(INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS,'y').NE.0) THEN 
PRINT *,'ENTER NEW LENGTH: ' 
READCS ea x 
ENDIF 
PRINT *,'DO YOU WISH TO CHANGE THE HEIGHT?' 
READ(5, *) ANS 
IFC INDEX(ANS,'Y').NE.O.OR. INDEX(ANS, ' y'). NE.0) THEN 
PRINT * ENTER NEW HEIGHT: 
READ(5,*) H 
ENDIF 
PRINT *,'DO YOU WISH TO CHANGE THE WIDTH?’ 
READ(5,*) ANS 
IFC INDEX(ANS,'Y').NE.0.OR.INDEX(ANS, 'y').NE.0) THEN 
PRINT *,'ENTER NEW WIDTH: ' 
READ(5,*) Y 
ENDIF 
PRINT *,'DO YOU WISH TO CHANGE THE WALL THICKNESS? ' 
READ(5,*) ANS 
IF(INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS, 'y').NE.0) THEN 
PRINT *,' ENTER NEW WALL THICKNESS: ' 
READ(5,*) TWAL 
ENDIF 
PRINT *, 
"DO YOU WISH TO CHANGE THE FLOOR/CEILING THICKNESS?' 
READ(5,*) ANS 
IF(INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS, 'y').NE. 0) THEN 
PRINT * ENTER NEW FLOOR/CEILING THICKNESS: 
READ(5, *) TFLR 
ENDIF 


aye 


ENDIF 


G =~ UPDATE NUMBER OF CELLS 


PRINT * 

PRINT *, ‘CURRENT DATA: ' 

PRINT * 

PRINT *, ‘NUMBER OF CELLS: ' 

PRINT *,' X DIRECTION: ' NI 
PRINT *,/' Y DIRECTION: ' NJ 
PRINT *,° Z DIRECEION: ' ,NK 
PRINT * 


PRINT *,'DO YOU WISH TO CHANGE ANY OF THESE VALUES? ' 
READ(5,*) ANS 
IF( INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS,'y').NE.0) THEN 
PRINT * "DO YOU WISH TO CHANGE THE NUMBER OF X CELLS?' 
READ(5, #) ANS 
IF(INDEX(ANS, 'Y').NE.0.OR. INDEX(ANS, 'y').NE.0) THEN 
PRINT *,'ENTER NUMBER OF X CELLS: ' 
READ(5,*) NI 
ENDIF 
PRINT *,'DO YOU WISH TO CHANGE THE NUMBER OF Y CELLS?' 
READ(5,*) ANS 
IF( INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS, ‘y ").NE.0) THEN 
PRINT * ENTER NUMBER OF Y CELLS: 
READ(5, #) NJ 
ENDIF 
PRINT *,'DO YOU WISH TO CHANGE THE NUMBER OF Z CELLS?' 
READ(5,*) ANS 
IF(INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS, a ").NE.0) THEN 
PRINT * ENTER NUMBER OF Z CELLS: 
READ(5, #) NK 
ENDIF 
ENDIF 


C *** UPDATE INTERNAL SOLIDS 


PRINT * 
PRINT *, ‘CURRENT DATA: ' 
PRINT * 
PRINT *,'NUMBER OF INTERNAL SOLID PIECES: ',NCHIP 
IF(NCHIP.EQ.0) GOTO 42 
PRINT *,'PIECE STARTING NODES NUMBER OF NODES oe 
‘THERMAL SPECIFIC FAN' 
PRINT *,' NO. Me Yee > eee? : 
"CONDUCTIVITY HEAT SPEED ' 
DO 40 N=1,NCHIP 
PRINT 2,' ',N,ICHPB(N)-2,JCHPB(N)-2,KCHPB(N)-2,NCHPI(N), 
NCHPJ(N) ,NCHPK(N) ,CONS(N) ,CPS(N) ,WFAN(N) 
HORMAE "C2 olen 2 C4 Xe oC 1S Oe 4k P94 2X 68 .4,2X F521) 
CONTINUE 
PRINT *,'DO YOU WISH TO CHANGE THE NUMBER OF SOLID PIECES?’ 
READ(5,*) ANS 
IF(INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS,'y').NE.0) THEN 
PRINT *,'ENTER NUMBER OF INTERNAL PIECES: ' 
READ(5,*) NCHIP 
ENDIF 
IF(NCHIP.EQ.0) GOTO 44 


BS 


46 


PRINT *, 
‘DO YOU WISH TO CHANGE POSITION OF THE SOLID PIECES?' 
READ(5,*) ANS 
IFC INDEX(ANS, Y').NE.0.OR. INDEX(ANS,'y').NE.0) THEN 
DO 46 N=1,NCHIP 
PRINT *,'FOR SOLID PIECE NUMBER ',N,' ENTER THE' 
PRINT *,'FIRST NODE IN EACH DIRECTION (X, Y AND Z)' 
READ(5 ,*) ICHPB(N),JCHPB(N) ,KCHPB(N) 
ICHPB(N)=ICHPB(N)+2 
JCHPB(N )=JCHPB(N)+2 
KCHPB(N )=KCHPB(N)+2 
PRINT *, 
"NUMBER OF NODES IN EACH DIRECTION (X, Y AND Z)' 
READ(5,*) NCHPI(N) ,NCHPJ(N) ,NCHPK(N) 
PRINT *,' THERMAL CONDUCTIVITY ' 
READ(5,*) CONS(N) 
PRINT *, ‘SPECIFIC HEAT' 
READ(5 ,*) CPS(N) 
PRINT *,'AND FAN VELOCITY (0 IF NO FAN)' 
READ(5,*) WFAN(N) 
CONTINUE 
ENDIF 


C «** UPDATE MASS SOURCE DATA 


44 


S72 
50 


PRINT * 
PRINT *,'CURRENT DATA: ' 
PRINT * 
PRINT *,'NUMBER OF MASS SOURCES: ',NMS 
IF(NMS.EQ.0) GOTO 50 
PRINT *,'SOURCE STARTING NODE NUMBER OF NODES’ FLOW’ 
PRINT *,' NO. eZ, PC mes RATE‘ 
DO 52 N=1,NMS 
PRINT 4,N,IMSB(N)-2,JMSB(N)-2,KMSB(N)-2,NMSI(N), 
NMSJ(N),NMSK(N), 
RMS(N)*(60.*H**2*U0*NMSI(N)*NMSJ(N)*NMSK(N) ) 
FORMAT (3X ,13.4X 2030x134 )eG se bo 
CONTINUE 
PRINT *,'DO YOU WISH TO CHANGE THE NUMBER OF SOURCES?’ 
READ(5,*) ANS 
IF(INDEX(ANS,'Y').NE.0.OR.INDEX(ANS, 'y').NE.0) THEN 
PRINT *,'ENTER NUMBER OF SOURCES: ' 
READ(5,*) NMS 


ENDIF 
IF(NMS.EQ.0) GOTO 54 
PRINT *, 


'DO YOU WISH TO CHANGE THE DATA FOR THE MASS SOURCES? ' 
READ(5,*) ANS 
IF(INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS,'y').NE.0) THEN 
DO 56 N=1,NMS 
PRINT * 
PRINT *,'FOR MASS SOURCE NUMBER ',N,' ENTER' 
PRINT *,'FIRST NODE IN EACH DIRECTION (X, Y AND Z)' 
READ(5,*) IMSBC(N),JMSB(N) ,KMSB(N) 
IMSB(N )=IMSB(N)+2 
JMSBCN )=JMSB(N)+2 
KMSB(N )=KMSB(N)+2 


54 


56 


PRINT *, 

‘NUMBER OF NODES IN EACH DIRECTION (X, Y AND Z)' 
READ(5,*) NMSI(N) ,NMSJ(N) ,NMSK(N) 
PRINT *, 'THE FLOW RATE OF THE MASS SOURCE IN CFM' 
READ(5,*) RMS(N) 
RMS(N)=RMS(N)/(60.*H**2*U0*NMSI(N)*NMSJ(N)*NMSK(N)) 

CONTINUE 
ENDIF 


C **%* UPDATE THERMOCOUPLE DATA 


54 


62 
60 


65 


66 


PRINT * 
PRINT *,'CURRENT DATA: ' 
PRINT * 
PRINT *,'NUMBER OF THERMOCOUPLES: ‘' ,NTHCO 
IF(NTHCO.EQ.0) GOTO 60 
PRINT *,'TC LOCATION' 
PRINT *, ‘NO. X Y Zz 
DO 62 N=1,NTHCO 
PREG sul. 12.2%. 3(2he besa). )-. 
N,CX(N)*H,CY(N)*H,CZ(N)*H 
CONTINUE 
PRINT *,'DO YOU WISH TO CHANGE THE NUMBER OF THERMOCOUPLES? ' 
READ(5,*) ANS 
IF(INDEX(ANS, ‘Y').NE.0.OR.INDEX(ANS, y').NE.0) THEN 
PRINT *,'ENTER THE NUMBER OF THERMOCOUPLES: ' 
READ(5,*) NTHCO 
ENDIF 
IF(NTHCO.EQ.0) GOTO 70 
IFC INDEX(ANS,'Y').NE.0.OR.INDEX(ANS,'y').NE.0) GOTO 65 
PRINT *,'DO YOU WISH TO CHANGE THE THERMOCOUPLE LOCATIONS? ' 
READ(5,*) ANS 
IF(INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS, y').NE.0) GOTO 65 
GOTO 70 
DO 66 N=1,NTHCO 
PRINT *,'ENTER THE LOCATION (FEET) OF THERMOCOUPLE ',N 
READG ora )) XX «XOY -XCZ 
CxGN ex /H 
CY(N)=XCY/H 
CZ(N)=XCZ/H 
CONTINUE 


C «** UPDATE HEAT SOURCE DATA 


70 


PRINT * 
PRINT *, ‘CURRENT DATA' 
PRINT * 
PRINT *,'HEAT SOURCE LOCATION ' 
PRINT *,' X DIRECTION: NODE’ ,NHSZ(1,1)-2,' TO’ ,NHSZ(1,2)-2 
PRINT *,' Y DIRECTION: NODE’ ,NHSZ(2,1)-2,' TO',NHSZ(2,2)-2 
PRINT *,' Z DIRECTION: NODE’ ,NHSZ(3,1)-2,' TO',NHSZ(3,2)-2 
PRINT * 
PRINT *,'DO YOU WISH TO CHANGE THE STARTING COORDINATES? ' 
READ(5,*) ANS 
IF(INDEX(ANS,'Y').NE.0.OR.INDEX(ANS, y').NE.0) THEN 

PRINT *,'ENTER THE STARTING COORDINATES: | 

PRINT *,' X DIRECTION: ' 

READ(5,*) NHSZ(1,1) 


By) 


PRINT *,'  Y DIRECTION: ' 
READ(5,*) NHSZ(2,1) 
PRINT *,'  Z DIRECTION: ' 
READ(S5,*) NHSZ(3,1) 
DO 71 I=1,3 
NHSZ(I,1)=NHSZ(I,1)+2 
71 CONTINUE 
ENDIF 
PRINT *,'DO YOU WISH TO CHANGE THE ENDING COORDINATES? ' 
READ(5,*) ANS 
IF( INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS, 'y').NE.0) THEN 
PRINT *,'ENTER THE ENDING COORDINATES: ' 
PRINT *,'  X DIRECTION: ' 
READ(5,*) NHSZ(1,2) 
PRINT *,'  Y DIRECTION: ' 
READ(5,*) NHSZ(2,2) 
PRINT sc Z DIRECTION: 
READ(5-*) NHSZGee2) 


DO 72 I=1,3 
NHSZ(1,2)=NHSZ(I,2)+2 

Uo CONTINUE 

ENDIF 
C *** UPDATE AMBIENT TEMPERATURE 
PRINT * 
PRINT *,'CURRENT DATA' 
PRINT * 
PRINT 3, 
& ‘AMBIENT TEMPERATURE =' ,TA-459.67, ‘DEGREES FARENHEIT' 

5 FORMAT (1X,A,1X,F6.2,1X,A) 

PRINT * 


PRINT *,'DO YOU WISH TO CHANGE THE AMBIENT TEMPERATURE? ' 
READ(5,*) ANS 
IF(INDEX(ANS,'Y').NE.0.OR.INDEX(ANS,'y').NE.0) THEN 
PRINT *,'ENTER THE NEW AMBIENT TEMPERATURE IN DEGREES F: ' 
READ(5,*) TAF 
TA=TAP+459 267 
ENDIF 


C *** UPDATE TIME DATA 

PRINT * 

PRINT *,'CURRENT DATA' 

PRINT * 

PRINT *,'MAXIMUM RUN TIME 

PRINT *,' INCREMENTAL TIME STEP 

PRINT *,'TIME BETWEEN DATA OUTPUT 

PRINT *,'TIME BETWEEN PLOTS 

PRINT *,'FIRE START TIME 

PRINT * 

PRINT *,'DO YOU WISH TO CHANGE ANY OF THESE TIMES?' 

READ(5,*) ANS 

IF(INDEX(ANS, 'Y').NE.0.OR.INDEX(ANS, ‘y').NE.0) THEN 
PRINT *,'ENTER MAXIMUM RUN TIME IN SECONDS: ' 
READ(5,*) XTMAX 
TMAX=X TMAX*U0/H 
PRINT *,' INCREMENTAL TIME STEP IN SECONDS: ' 


, TMAX*H/U0, ' SECONDS' 
, DTIME*H/U0,' SECONDS ' 
,TWRITE,' SECONDS’ 
,TTAPE,' SECONDS’ 
,HSTART,' SECONDS’ 


-_ = =@«@ —» « 
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READ(5,*) XDTIME 
DTIME=XDTIME*U0/H 
PRINT *,'TIME BETWEEN DATA OUTPUT IN SECONDS: ' 
READ(5,*) TWRITE 
PRINT *,' TIME BETWEEN PLOTS IN SECONDS: ' 
READ(5,*) TTAPE 
PRINT *,'FIRE START TIME IN SECONDS: ' 
READ(5,*) HSTART 
NWRP=INT(TWRITE/XDTIME) /2 
ENDIF 
ELSE 
PRINT *,'PROGRAM TERMINATING. ' 
PRINT *,' PLEASE RENAME FIRE.DAT AND TRY AGAIN. ' 
GOTO 999 
ENDIF 


RAKRE CREATING NEW DATA FILE 


ELSE 
PRINT *,'FIRE DATA Bl NOT FOUND!’ 
PRINT *,'CREATING NEW DATA FILE. ' 
OPEN(10,FILE='/FIRE DATA B1' ,STATUS='NEW' ) 


wee INPUT NEW DATA ***%* 


C *** INPUT GEOMETRIC DATA 
PRINT *,' INPUT COMPARTMENT LENGTH (X DIRECTION) IN FEET' 
READ(5,*) X 
PRINT *,' INPUT COMPARTMENT HEIGHT (Z DIRECTION) IN FEET' 
READ(5,*) H 
PRINT *,' INPUT COMPARTMENT WIDTH (Y DIRECTION) IN FEET' 
READ(5,*) Y 
PRINT *,'INPUT COMPARTMENT WALL THICKNESS IN INCHES' 
READ(5,*) TWAL 
PRINT *,' INPUT COMPARTMENT FLOOR/CEILING THICKNESS IN INCHES' 
READ(5,*) TFLR 
PRINT *,' INPUT NUMBER OF CELLS IN THE X DIRECTION: ' 
READ(5,*) NI 
PRINT *,' INPUT NUMBER OF CELLS IN THE Y DIRECTION: ' 
READ(5,*) NJ 
PRINT *,'INPUT NUMBER OF CELLS IN THE Z DIRECTION: ' 
READ(5,*) NK 


C *** INPUT INTERNAL SOLIDS DATA 
PRINT *,' INPUT NUMBER OF INTERNAL SOLID PIECES' 
READ(5,*) NCHIP 
IF (NCHIP.GT.0) THEN 
PRINT *,' INPUT THE LOCATION OF INTERNAL SOLID PIECES' 
DO 14 N=1,NCHIP 
PRINT * 
PRINT *,'FOR SOLID PIECE NUMBER ',N,' ENTER THE’ 
PRINT *,'FIRST NODE IN EACH DIRECTION (X, Y AND Z)' 
READ(5,*) ICHPB(N) ,JCHPB(N) ,KCHPB(N) 
ICHPB(N)=ICHPB(N)+2 
JCHPB(N)=JCHPB(N)+2 
KCHPB(N)=KCHPB(N)+2 


i 


PRINT *,'NUMBER OF NODES IN EACH DIRECTION (X, Y AND Z)' 
READ(5,*) NCHPI(N) ,NCHPJ(N) , NCHPK(N) 
PRINT *, ‘THERMAL CONDUCTIVITY ' 
READ(5,*) CONS(N) 
PRINT *, ‘SPECIFIC HEAT’ 
READ(5,*) CPS(N) 
PRINT *,'AND FAN VELOCITY (0 IF NO FAN)' 
READ(5,*) WFAN(N) 

14 CONTINUE 

ENDIF 


C *** INPUT MASS SOURCE DATA 
PRINT *,' INPUT NUMBER OF MASS SOURCES' 
READ(5,*) NMS 
IF (NMS.EQ.0) THEN 
PRINT * 
PRINT *,'ENTER MASS SOURCE DATA: ' 
DO 18 N=1,NMS 
PRINT *,'FIRST NODE IN EACH DIRECTION (X, Y AND Z)' 
READ(5,*) IMSB(N) ,JMSB(N) ,KMSB(N) 
IMSB(N)=IMSB(N)+2 
JMSB(N)=JMSB(N)+2 
KMSB(N)=KMSB(N)+2 
PRINT *,'NUMBER OF NODES IN EACH DIRECTION (X, Y AND Z) 
READ(5,*) NMSI(N),NMSJ(N) ,NMSK(N) 
PRINT *,'THE FLOW RATE OF THE MASS SOURCE IN CFM' 
READ(5,*) RMS(N) 
RMS(N)=RMS(N)/( 60. *H**2*U0*NMSI(N)*NMSJ(N)*NMSK(N)) 
18 CONTINUE 
ENDIF 


t 


C %* INPUT THERMOCOUPLE DATA 
PRINT *,' INPUT NUMBER OF THERMOCOUPLES' : 
READ(5,*) NTHCO 
PRINT *,' INPUT THERMOCOUPLE POSITION IN FEET: ' 
DO) 19e1 ie N THES 


PRINT * 
PRINT *,'FOR THERMOCOUPLE NUMBER ‘',I 
PRINT *,' X POSITION (FEET):' 


READ (5,*) XCX 
GxX@l)=xCx /H 
PRINT *,' Y POSITION (FEET):' 
READ (5,*) XCY 
CY(I)=XCY/H 
PRINT *,/ Z POSITION (FEET):' 
READ (5,*) XCZ 
CZ =X C278 
19 CONTINUE 


C + INPUT HEAT SOURCE DATA 
PRINT *,' INPUT FIRST NODE OF HEAT SOURCE ' 
PRINT *,' X DIRECTION: ' 
READ (5,*) NHSZ(1,1) 
PRINT *,' Y DIRECTION: ' 
READ (5,*) NHSZ(2,1) 
PRINT *,' Z DIRECTION: ' 
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READ (5,*) NHSZ(3,1) 

PRINT *,'INPUT LAST NODE OF HEAT SOURCE IN EACH DIRECTION: ' 
PRINT *,' X DIRECTION: ' 

I) (Coy *) NHSZ(1,2) 


PRINT * Y DIRECTION: 
READ (5, ar) NHSZ(2,2) 
PRINT *,' Z DIRECTION: 


READ (>. *) NHSZ(3, 2) 


C *** CORRECT HEAT SOURCE LOCATION DUE TO EXTERNAL CELLS 


U1 ON 


CG whe oka ake 
eveu ey 


Cc ake als ake 
ee enen 


DO 5 I=1,3 
nee Jae 
NHSZ(I,J)=NHSZ(1I,J)+2 
CONTINUE 
CONTINUE 


INPUT AMBIENT TEMPERATURE 


PRINT *,'INPUT AMBIENT TEMPERATURE (DEGREES FARENHEIT)' 
READ(5,*) TAF 
TA=TAF+459.67 


INPUT TIME DATA 


PRINT *,'INPUT MAX RUN TIME FOR FIRE (SECONDS) ' 
READ(5,*) XTMAX 

TMAX=XTMAX*UO/H 

PRINT *,' INPUT SIZE OF TIME STEP (SECONDS) ' 

READ(5,*) XDTIME 

DT IME=XDTIME*U0/H 

PRINT *,' INPUT FIRE START TIME (SECONDS) ' 

READ(5,*) HSTART 

PRINT *,' INPUT TIME INTERVAL BETWEEN DATA SAVES (SECONDS) ' 
READ(5,*) TWRITE 

PRINT *,' INPUT TIME INTERVAL BETWEEN PLOTS (SECONDS) ' 
READ(5,*) TTAPE 


G>=-* DETERMINE NWRP AND ADJUST TWRITE 


C Po oe ee 
wien 


& 


& 


NWRP=INTCTWRITE/XDTIME) /2 


ENDIF 


SAVE DATA IN DATA FILE 
REWIND(10) 

WRITE(10,*) X,Y,H,TFLR,TWAL,TA 

WRITE(10,*) NI,NJ,NK 

WRITE(10,*) NCHIP,NMS,NWRP ,NTHCO 

WRITE(10,*) TMAX,DTIME,TTAPE,TWRITE,HSTART 

WRITE(10,*) NHSZ(1,1),NHSZ(1,2),NHSZ(2,1),NHSZ(2,2),NHSZ(3,1), 


NHSZ(3,2) 


IF (NCHIP.EQ.0) GOTO 20 
DO 2235N=1NGCHIP 


WRITE(10, *) ICHPB(N) ,NCHPI(N) ,JCHPB(N), NCHPJ(N) , KCHPB(N), 
NCHPRGN):, CESUN), CONS(N), WFAN(N) 


22 CONTINUE 
20) TE 20NNS; E020) GOTO 24 


& 


DO 26 N=1,NMS 


WRITE( 10, *) IMSB(N),NMSI(N),JMSB(N) ,NMSJ(N) ,KMSB(N) , 
NMSK(N) , RMS(N) 
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26 
24 


28 


ws) 


CONTINUE 
DO 28 I=1,NTHCO 

WRITEC10.%) CX(1)sGY()) sect 
CONTINUE 
REWIND(10) 
CLOSE(10) 


END 
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APPENDIX B. PROGRAM FIRE 


PROGRAM FIRE 


wSes whee alen afn ale ahs alin alee alee ahr ale abe abe ats leaks alate beats alas ake afer ate ate abe ate ate abe ale abe abe abe abeatc abe abe als at cabe ale ales ate ate ate ale ate abe abe abe ale ate ale ate ate ate abe afi afr afin atin ales aber afer ter alee alee alae alien afer alo 
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*SET CONSTANTS: 


Ze CPO 
* GC 

* RAIR 
* RHOO 
* UO 


ake 
ry 


| REFERENCE SSsPECIFPIC HEAT OF AIK = 

: GRAVITATIONAL ACCELERATION = 32.17 FT/SEC**2 

: UNIVERSAL GAS CONSTANT FOR AIR = 53.34 

: REFERENCE AIR DENSITY (LBM/FT**3) = 0.0714 LBM/FT**3 
ROU ORENGEeVEnOCIhY “(hi /SEG) = 1.0 Fl ssEC 


Bee RLIEN) DIMENSTONS CIN FEET ):- 


* H 


E 
KK P< 


NI 
NJ 
NK 


CONSRA 
HCONV 
TA 
TINIT 
UR 
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HEIGHT IN Z-DIRECTION (USED AS REFERENCE LENGTH) 


S LENG the IN =X -DTREC TON 
sow CU IN Y= DIRECTION 


: NUMBER OF CELLS IN X-DIRECTION 


Y-DIRECTION 
Z-DIRECTION 


: TA**3/(CRA*CP*U0*H*#H ) 
: HEAT TRANSFER COEFFICIENT TO THE AMBIENT (BTU/H*K*FT**2 ) 
REFERENCE TEMPERATURE (RK) 


INITIAL TEMPERATURE (0) 


: REFERENCE VELOCITY (CM/S) 


“HEAT SOURCE DATA: 
* NHSZ(1,1) 
* NHSZ(2,1) 


STARTING CONTROL VOLUME NUMBER IN X-DIRECTION 
VaDEREGTION 
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* NHSZ(3,1) : Z-DIRECTION 
* NHSZ(1,2) : LAST CONTROL VOLUME NUMBER IN X-DIRECTION 


* NHSZ(2,2) : Y=DIRECTION 

* NHSAG3e eee Z-DIRECTION 
*INTERNAL SOLID PIECES: 

* NCHIP : NUMBER OF INTERNAL SOLID PIECES 

* ICHPB(C) : STARTING NODE NUMBER FOR SOLID IN X-DIRECTION 
* JCHEE CO): Y-DIRECTION 
* KCHPB() : Z-DIRECTION 
* NCHPI() : NUMBER OF NODES OF SOLID IN X-DIRECTION 

* NCHPJ() : Y-DIRECTION 

* NCHPK() : Z-DIRECTION 
*TOTAL HEAT: 

* QSIN : INPUT FROM THE FIRE 

* QSWAL : LOST TO THE WALL (FROM AIR TO THE WALL) 

* QSFAN : CARRIED AWAY BY THE VENTILATION 


ate 


*VIEW FACTORS FROM HEAT SOURCE: 
VFHSW(N,J,K) : TO ELEMENT JeRe Oh WEST WALL 


* VEHSECN yak) a: EAST WALL 
* VFHSN(N,K,1) =: 2G) ELEMENT Kel. ON NOR THeWAnE 
* VEFHSOCN GN see SOUTH WALL 
* VFHSFCN,1,J)> 2 TOsELEMENT Te 2ON PRON Dey eicie 
Oy PHSB GN ies)ae: BACK WALL 
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*DATA FILES USED IN THIS PROGRAM: 


* FILE # 10 = FIRE DATA > INITIAL SET-UP DATA 

* 11 = CONTINUE DATA : RESTART/CONTINUATION DATA 
* 12 = OUTPUT DATA  OULPUR RESCUES 

* 13 = PLOT DATA : DATA FOR PLOTTING 


ahee whe kee ahs as a Parete ako als ahr ats afar bn he ales alin mtr ahi ates ater ahi orle atic ates akiee atic ates ater ater atic mbes ates ten akan ooles ohn afer afer akeo akin ebic afer tee nbs olen oles hes adic ates akee he abe afie atee ahie afie afic atin aio atic ate ate atin atin atic mlomle atoato atomic ato 
ER EV AV EVEN ED ED EL ED EN ED ED EDR EL EN EL GD ED FD ED ED ED ERED EN AN REN EDR AL ER EL ERED EL AR ED EL EN GN ED EL EDEN EDEN EV ELEN GLEN GL ED ED ERED EV EVEN ELV EL EL EVEL ED EL EDV ED ED ED 4d 4% 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /R4/XC(25),YC(25) ,ZC(25) ,XS(25) ,YS(25),2S(25) ,DXXC(25), 
& DYYC( 25) ,DZ2Z2C( 25) ,DXXS(25) ,DYYS(25) ,DZZS(25) 

COMMON/BL1/DX ,DY ,DZ,DTIME, TCOOL, PI ,Q,QR 

COMMON/BL2/X,Y,H,TFLR, TWAL 

COMMON/BL3/F ,FR,HSTART 

COMMON/BL7/NI,NJ,NK,KRUN ,NBLOR,NWRP 

COMMON /BL12/NWRITE ,NTAPE ,NTMAXO ,NTREAL, TIME , SORSUM, ITER 

COMMON /BL14/HCOEF ,CNT, ABTURB, BTURB, VISL, VISMAX 

COMMON /BL16/U0 ,UGRT, BUOY ,CPO , PRT, CONDO , VISO,RHOO, 


S TA ,DTEMP , TWRITE, TTAPE, TMAX ,GC ,RAIR,NT 
COMMON/BL20/S1G11(25,25,15),S1G12(25,25,15).S1G22(25.25elem 
& SI1G13(25,25,15),S1G23(25,25,15),$1G33(25,25,15) 


COMMON /BL23/RMS(20),NMS, IMSB( 20) ,NMSI( 20), JMSB( 20) ,NMSJ(20), 
& KMSB( 20) ,NMSK( 20) 
COMMON /BL22/CPS( 20) ,CONS( 20) ,WFAN(20) ,NCHIP, ICHPB( 20) ,NCHPI(20), 


& JCHPB( 20) ,NCHPJ( 20) ,KCHPB( 20) ,NCHPK( 20) 

COMMON/BL31/TOD(25,25,15),ROD(25,25,15),POD(25,25,15), 
& COD(25,25,15) ,UOD(25, 25,15) ,VOD(25,25,15), 
& WOD(25,25,15) 


COMMON/BL32/1T( 25,25, 15) ,RC25,25, 15) 9P( 25525 15) Ce error 
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& U(25,25,15),V(25,25,15),W(25, 25,15) 
COMMON/BL33/TPD(25,25,15),RPD(25,25,15),PPD(25,25,15), 

& CPD(25,25,15),UPD(25, 25,15) ,VPD(25,25,15), 

a WPD(25,25,15) 
COMMON/BL34/HEIGHT(25,25,15),REQ(25,25,15) ,SMP(25,25,15), 

s SMPP(25,25,15),PP(25, 25,15) ,DU(25, 25,15), 

& DV(25,25,15) ,DW(25,25,15) 

COMMON/BL36/AP(25,25,15) ,AE(25,25,15),AW(25, 25,15) ,AN(25,25,15), 
AS(25,25,15),AF(25,25,15) ,AB(25,25,15),SP(25,25,15), 
SU(25,25,15),R1(25, 25,15) 

COMMON/BL37/VIS(25,25,15) ,COND(25,25,15),RESORM(40), 

& CPM(25,25,15) ,NHSZ(3,2),NOD(25,25,15) 

COMMON /BL38/TCOUP( 30) ,CX( 30) ,CY(30) ,CZ(30) ,NTH( 30,3) ,NTHCO 
COMMON /BL39/ALEW , CONSRA ,QSIN ,QSWER ,QSWAL ,QSAIR ,QSFAN 
COMMON /BL40/VFHSW(5,25,15),VFHSE(5,25,15),VFHSS(5,15,25), 


& 
& 


& VFHSN(5,15,25),VFHSB(5,25,25),VFHSF(5, 25,25) 
COMMON/BL41/VFHSBW(5,8,34, 34) , VFHSBE(5,8, 34, 34) , VFHSBS(5,8, 34, 34), 
& VFHSBN(5,8,34,34), VFHSBB(5,8, 34, 34) , VFHSBF(5,8, 34, 34) 


COMMON /BL43/QSCONF ,QSCONB ,QSCONE, QSCONW ,QSCONN ,QSCONS ,QSRADF, 
QSRADB,QSRADE ,QSRADW ,QSRADN,QSRADS ,WAIR,WWAL,WINS, 
WERR , WWFAN 

DATA SORMAX,XTIME, ITMAX/3.00,0.0,4/ 


& 
& 


C weexke TNITIAL PROGRAM START ***** 
CALL CPUTIME( BEGIN, IPR) 


C «** TNPUT DATA 
CALL INPUTCNSTOP) 
PECNSPTOP-G1~0) GOTO 9999 


C *«** GENERATE GRID SYSTEM 
CALL GRID 


C «** TNITIALIZE THE ALL DATA FIELDS 
CALL INIT 


C *** OPEN OUTPUT FILES 
OPEN(12,FILE='/OUTPUT DATA B1' ,STATUS='UNKNOWN' ) 
OPEN(13,FILE='/PLOT DATA B4',STATUS='UNKNOWN' , 
& FORM='UNFORMATTED' ) 


C «** CALCULATE THE VIEW FACTORS FROM THE FIRE TO THE WALLS 
CALL VIEW 


wee START CALCULATIONS ***%%* 


NT=0 
NT IM=0 
300 NT=NI+1 


C *** ON RESTART NTMAXO IS SET EQUAL TO OLD VALUE FOR NTREAL 
[ROMIMES GE TMAX GO TO 277 
NTREAL=NT+NTMAXO 
TIME=TIME+DTIME 
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G als oleate 
VON aN 


CG als afoate 
rrr erry 


C whee ote ake 
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48 
47 
301 
Se 
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XTIME=TIME*H/UO 
PRINT 3,'CURRENT FIRE TIME IS:',XTIME,'SECONDS' 
FORMAT (1X,A,1X,F10.6,1X,A) 


CALCULATE THE HEAT SOURCE IN BTU/SEC 
CALL CALQ 


START CALCULATIONS 
ITER=0 

JTERM=0 

JITERM=0 


PREDICT VARIABLE FIELDS FOR USE BY CALVIS AND SU(I,J,K) 

DO 48 K=1,NK+4 

DO 48 J=1,NJ+4 

DO 48 I=1,NI+4 
TPD(1,J,K)=T(1I,J,K) 
GPD( 1.3, K)=C0 lian) 
RPD(I,J,K)=R(1I,J,K) 
UPD(I,J,K)=U(1I,J,K) 
VED(1.1.K) =v ek) 
WPD(I,J,K)=W(1I,J,K) 

CONTINUE 

JTERM=JTERM+1 

NTITER=0 

NTITER=NTITER+1 


IF FIRE HAS STARTED, CALCULATE THE TEMPERATURE 
IF (XTIME.GE.HSTART) CALL CALT 


ae*xe*kTHIS STEP CAN BE SKIPPED WHEN COMPARTMENT IS OPEN TO OUISIUE..... 


'¢ elealoats 
eu eves 


CG ole ale ale 
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CORRECT GLOBAL PRESSURE FOR TOTAL MASS CONSERVATION 
CALL GLOBE 


CALCULATE DENSITY 

DO 100 J=1,NJ+4 

DO 100 I=1,NI+4 

DO 100 K=1,NK+4 
IF (NOD@I,J,.K).EO. 1) uGore 00 
AAAA=BUOY*UGRT*HEIGHT(I ,J,K) 
RC1,J,K)=(UGRT*P(1,J,K)+(1 a7 EXPOAAAA)) 7 Glen) 

CONTINUE 


AKKEATHIS STEP CAN BE SKIPPED WHEN COMPARTMENT IS OPEN TO OUTSIDE****% 


GC ale aloate 
ye er Fe 
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wheats nto 
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ITERATE INSIDE TEMPERATURE LOOP TO ASSURE GLOBAL CONSERVATION 
OF MASS AND ENERGY 
Tee ONTITER G22) Gono 3 i 


PRINT OUT THE ENERGY DISTRIBUTION 
IF (MOD(NTREAL,NWRP).EQ.0) CALL OUT(4) 


* CALCULATE THE SMOKE CONCENTRATION 


CALL CALC 


CALCULATE TURBULENT VISCOSITY AND CONDUCTIVITY 
CALL CALVIS 


wee CORRECT CONDUCTIVITY OF THE SOLID 
IF (NCHIP.NE.0) CALL SOLCON 


wee START PRESSURE CORRECTION ITERATIVE LOOP 
44% TT IS THE MAJOK PART OF THE ERROR CONTROL ROUTINE 
ITER=ITER+t1 


#** CALCULATE THE STRESS AND VELOCITY COMPONENTS U,V,AND W 
CALL STRESS 
CALL CALU 
CALL CALV 
CALL CALW 


#*x* CALCULATE PRESSURE 
CALL CALP 


“wwe TF SOURCE TERM IS LARGER THAN 10.0, STOP PROGRAM 
Pee RESORMCIIER).61210,0:) GOTO 2020 


IF(RESORM(ITER).LE.SORMAX) GO TO 49 

INGIDER EO) GOorO 302 

IF(RESORM(ITER) .LE. RESORM(ITER-1)) GO TO 302 

GO TO 304 

302 IF(JTERM .LT. 2) THEN 

SOURCE=RESORM( ITER) 

ELSEIF(RESORM(ITER).LE.SOURCE) THEN 
SOURCE=RESORM( ITER) 

ELSE 
GOTO 304 

ENDIF 

DO 23 K=1,NK+4 

DO 23 J=1,NJ+4 

DO 23 I=1,NI+4 
TPO CU wh k =101s) 4K) 
CPD(I,J,K)=C(1I,J,K) 
RPD(I,J,K)=R(1I,J,K) 
UPDCI JK )=UCI.J.K) 
VPD(I,J,K)=V(1I,J,K) 
WPD(I,J,K)=W(1,J,K) 
PPD(1,J,K)=P(1,J,K) 

23 CONTINUE 


JITERM=0 
IF(ITER.EQ.ITMAX) GO TO 49 
IF(JTERM.EQ.2) GO TO 35 
IF(ITER.EQ.4) GO TO 47 

35 IF(JTERM.EQ.3) GO TO 58 
IF(ITER.EQ.7) GO TO 47 

58 JJITERM=0 
GO TO 301 

304 JIJTERM=JJTERM+1 
IF(JTERM.EQ.1) GOTO 41 
IF(JTERM.EQ.2.AND.JJTERM.EQ.1.AND.ITER.NE.5) GO TO 41 
GO TO 82 > 
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DO 40 K=1,NK+4 

DO 40 J=1,NJ+4 

DO 40 I=1,NI+4 
Rl ick |=R eb Creare) 
U(I,J,K)=UPD(I,J,K) 
VOI. JK )=VepGn dake 
W(1,J,K)=WPD(1I,J,K) 
PCL eee Jar 


CONTINUE 
IF(ITER.EQ.ITMAX) GO TO 49 
GO TO 47 

DO 43 K=1,NK+4 


DO 43 J=1,NJ+4 

DO 43 I=1,NI+4 
TCL ek DeNiGl dk) 
CCE ako CRD Gia 
R(I,J,K)=RPD(I,J,K) 
U(I,J,K)=UPD(I,J,K) 
V(1,J,K)=VPD(1I,J,K) 
W(1,J,K)=WPD(1,J,K) 
P(I,J,K)=PPD(1,J,K) 

CONTINUE 


[PCMIER EO] TIMAX)=GO TOra9 
IF(( JTERM.EQ.3.AND.ITER.NE.8).OR GERM EG =2 Re OmlOg49 
GO TO 301 


ITERT=PTERT+ITER 
IF (MOD(NTREAL,NWRP) .EQ.0) CALL OUT(1) 


FIND TEMPERATURES AT THERMOCOUPLES AND PRKINI OUT AT PROPERKSI 
CALL TCP 
IF (MODCNIKREAL NWRITE) EO 0) (CAG OUT G2 


OUTPUT FILED VALUES 
TF (MOD(NTREAL,NWRITE).EQ.0) CALL OUTGs> 
rE (TIME SCE. (MAX) GO TO 277 


SHIFT CURRENT TIME VALUES TO PREVIOUS TIME VALUES AND 

LOOP BACK FOR NEXT ITERATION 

DO 305 K=1,NK+4 

DO 305 J=1,NJ+4 

DO 305 I=1,NI+4 
TODGI JK Shale Kk) 
GOD(T,J,K)=e(1,3,K) 
ROD(I,J,K)=R(1,J,K) 
VODG TJ sK=UC1 Jk 
VOD(1,J,K)=V(1I,J,K) 
WOD(1,J,K)=W(1I,J,K) 
POD(I,J,K)=P(1,J,K) 

CONTINUE 


OUTPUT TO DATA FILE FOR PLOTTING 


IF(MOD(NTREAL,NTAPE) .EQ.0) THEN 
WRITEGIS) TIME Oy ow 
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ENDIF 


C *%* OUTPUT TO CONTINUATION FILE FOR RESTART 
IF(MOD(NTREAL, 100).EQ.0) THEN 
WRITE(11) TIME,NTREAL,FR,T,R,U,V,W,P,C 
REWIND 11 
ENDIF 
GO TO 300 


C *** QUTPUT TO CONTINUATION FILE 
277 WRITE(11) TIME,NTREAL,FR,T,R,U,V,W,P,C 
GO TO 9999 


2020 WRITE(12,*)'RESIDUAL MASS IS LARGER THAN 10.0', 
& ' PROGRAM STOPS AT TIME = ',XTIME,' SEC' 


9999 CALL CPUTIME(END, IPR) 
WRITE (12,*) ‘CPU RUN TIME = ',(END-BEGIN)*1.E-6,' SECONDS' 
STOP 
END 
WIRE ER ERE REE ER ETT EEE ERATE IRRRE EERE RRR CE 
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BLOCK DATA 
* UO SO REPERENCE VELOGITY = 1,0 FT/SEC 
a PRT : TURBULENT PRANDTL NUMBER = 1.0 
* RHOO : REFERENCE DENSITY OF AIR = 0.0714 LBM/FT#**3 
ce O : REFERENCE SPECIFIC HEAT OF AIR = 0.24 BTU/(CLBM*F) 
* VISO > REFERENCE VISCOSITY = 1.56E-4 
Zoe N T : 
* ABTURB : TURBULENCE CONSTANT 
* BTURB : TURBULENCE CONSTANT 
* GC ; GRAVITATIONAL ACCELERATION = 32.17 FT/SEC**2 
* RAIR : GAS CONSTANT FOR AIR = 53.34 
* ALEW > LEWIS NUMBER = 1.0 


ahs he whee ales mbes mfie mbes ehes fie afer ter fer wher kee hes wher lee mine akee eohee hee onl a Sis See ahas anhic whee whee whic whee ales ofa afar whe alter ales wher ober ahic ater mfis akusate ahioeic afar whee ober afar ebee whee whe whic ethic ates ales ater ales ater ales ater mfie afes afis afer enter mhis afirmfic mfis mfis mfus 
el wii wi wiwiwiwilwiwiwiwiwiwiwi wi wi wi ei @i@i imei ei wii @iviWiwinl@lw Wiel el ei Wi Wiel wie Pie ei ei wiVi@ieleiViwiwiwivi@i@i wi eli wi wi wi Wiese. eis wie) 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON/BL12/NWRITE ,NTAPE ,NTMAXO ,NTREAL, TIME, SORSUM, ITER 
COMMON/BL14/HCOEF ,CNT, ABTURB, BTURB, VISL, VISMAX 
COMMON/BL16/U0O ,UGRT, BUOY, CPO , PRT, CONDO, VISO, RHOO, 

& TA ,DTEMP , TWRITE, TTAPE, TMAX ,GC,RAIR,NT 
COMMON /BL39 /ALEW , CONSRA ,QSIN, QSWER , QSWAL ,QSAIR ,QSFAN 


C *%* SPECIFY THE INITIAL DATA 
DATA UO, PRT, RHOO , CPO, VISO , NTMAX0/ 
& 1.0, 1.0, 0.0714, 0.24, 1.56D-4, 0/ 
DATA CNT ,ABTURB,BTURB/0.2,2.0,1.0/ 
DATA GC,RAIR,ALEW/32.17,53.34,1.0/ 
END 


oe ee OO OO OE Ee OO OO OE OE OE ee OO Oe Te OE OE en Oe OE OE Oe OE Oe OO Oe oe oT Oe Oe Ot a on a ae Oe oe eee 
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SUBROUTINE CALC 


eRe hen ales ake abe afer afer aber whee abc abc ake abe whee abe whe ale abe abe abs abe ateata ake ala ake abe ake abe ake ake ale alc ahoals abe abe abouts abeale abe ale ale abe abe ahs ale ale ake abe alo ats abe ale abe abe abe abe ale ale ake abe ake ake ake ale ake abe ale ale ale 
TIWIWIWIWVLOIOLeLOLOLeLe Leelee lee Le LLL ELLE eile elie iviel Win i Viele lol@wli@liVli@lelelelol el el elLelelelel wi ale lel wi wre i wie! wiwl wie lara ly 


*THIS SUBROUTINE CALCULATES THE SMOKE CONCENTRATIONS 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON/R4/XC(40), YC(40) , 2C(40) ,XS(40) ,YS(40) ,2ZS(40) , DXXC(40), 

& DYYC(40) ,DZZC(40) ,DXXS(40) ,DYYS(40) ,DZZS(40) 

COMMON/BL1/DX ,DY ,DZ,DTIME,TCOOL,PI,Q,QR 

COMMON/BL2/X,Y,H,TFLR,TWAL 

COMMON /BL7/NI,NJ,NK,KRUN,NBLOR ,NWRP 

COMMON/BL31/TOD(25,25,15) ,ROD(25,25,15),POD(25,25,15), 
COD(25,25,15),U0D(25,25,15),VOD(25,25,15), 
WOD(25,25,15) 

COMMON /BL32/T(25,25,15),R(25,25,15) ,P(25,25,15),C(25,25,15), 
U(25,25,15),V(25, 25,15) ,W(25, 25,15) 

COMMON/BL33/TPD(25,25,15),RPD(25,25,15),PPD(25,25,15), 
CPD(25,25,15) ,UPD(25,25,15),VPD(25,25,15), 
WPD(25,25,15) 

COMMON/BL36/AP(25, 25,15) ,AE(25,25,15),AW(25,25,15),AN(25, 25,15), 
AS(25,25,15),AF(25,25,15),AB(25, 25,15) ,SP(25,25,15), 
SU(25,25,15),RI(25,25,15) 

COMMON/BL37/V1S(25,25,15),COND(25,25,15) ,RESORM(40), 
CPM(25,25,15),NHSZ(3,2),NOD(25,25,15) 

COMMON /BL39 /ALEW, CONSRA,QSIN, QSWER ,QSWAL ,QSAIR,QSFAN 


& > & > & & — > 


C «** CALCULATE COEFFICIENTS 
DO 100 K=2,NK+t3 
DO 100 J=2,NJ+3 
DO 100 I=2,NI+3 


C *** CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 
DXP1=DXxXC(I+1) 
DXI =DXxXC(I) 
DXM1=DxxC(I-1) 


DYP1=DYYC(J+1) 
DYJ=DyyYCCIp 
DYM1=DY YG -1) 


DZP1=DZZC(K+1) 
DZK =DZZC(K) 
DZM1=DZZC(K-1) 


C *** SURFACE LENGTH OF THE CONTROL VOLUME 
DXN=DXXC( 1) 
DXS=DXxXC( 1) 
DXF=DXxC( I) 
DXB=DXXC(I1) 


DYF=DYYC(J) 
DYB=DYYC(J) 
DYE=DYYC(J) 
DYW=DYYC(J) 


DZE=DZZC(K ) 
DZW=DZZC(K) 
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DZN=DZZC(K) 
DZS=DZZC(K) 


C **s* CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 
DXEE=DXXS(I+2) 
DXE =DXXS(I+1) 
DXW =DXXS(1) 
DXWW=DXXS(I-1) 


DYNN=DYYS(J+2) 
DYN =DYYS(J+1) 
DYS =DYYS(J) 

DYSS=DYYS(J-1) 


DZFF=DZZS(K+2) 
DZF =DZZ5(K+F1) 
DZB =DZZS(K) 

DZBB=DZZS(K-1) 


C *** DEFINE THE AREA OF THE CONTROL VOLUME 
DXYF=DXF*DYF 
DXYB=DXB*DYB 
DY ZE—DyYE--DZE. 
DY ZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DxXS 


VOL=DX I*DYJ*DZK 
VOLDT=VOL/DTIME 


ZXOYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
Y ZOXW=DY ZW /DXW 


C ** DENSITY AT THE SURFACES OF THE CONTROL VOLUME 
GN=(R(I,J,K)*DYP1+R(I ,J+1,K )*DYJ)/(DYP1+DYJ) 
GS=(R(I,J,K)*DYM1+R(I  ,J-1,K  )*DYJ)/(DYM1+DYJ) 
GE=(R(1,J,K)*DXP1+R(I+1,J  ,K  )*DXI)/(DXP1+DXI) 
GW=(R(1,J,K)*DXM1+R(I-1,J  ,K  )*DXI)/(DXM1+DXI) 
GF=(R(I1,J,K)*DZPI+R(I ,J  ,K+1)*DZK)/(DZP1+DZ2K) 
GB=(R(I1,J,K)*DZM1+R(I ,J  ,K-1)*DZK)/(DZM1+DZK) 


CN=GN*V(I ,J+1,K )*DZXN 
CS=GS*V(I ,J ,K )*DZxS 
CE=GE*U(I+1,J ,K )*DYZE 
CW=GW*U(I ,J ,K )*DYZW 
CF=GF*W(I  ,J  ,K+1)*DXYF 
CB=GB*W(I ,J ,K  )*DXYB 


C *** DIFFUSIVITY AT THE SURFACES OF THE CONTROL VOLUME 
CONDN=(DYP1+DYJ)/(DYJ/COND(1,J,K)+DYP1/COND(I ,J+1,K 
CONDS=(DYM1+DYJ)/(DYJ/COND(I,J,K)+DYM1/COND(I ,J-1,K 
CONDE=(DXP1+DXI)/(DXI/COND(I,J,K)+DXP1/COND(I+1,J  ,K 


69 


Nee NY NY 
a ae 


CONDW=(DXM1+DXI)/(DXI/COND(I,J,K)+DXM1/COND(I-1,J ,K_ )) 
CONDF=(DZP1+DZK)/(DZK/COND(I,J,K)+DZP1/COND(I ,J_ ,K+1)) 
CONDB=(DZM1+DZK)/(DZK/COND(I,J,K)+DZM1/COND(I ,J_ ,K-1)) 


CONDN1=ZXOYN*CONDN*ALEW 
CONDS 1=ZXOYS*CONDS*ALEW 
CONDE 1=Y ZOXE*CONDE*ALEW 
CONDW 1=YZOXW*CONDW*ALEW 
CONDF 1=XYOZF*CONDF*ALEW 
CONDB1=XYOZB*CONDB*ALEW 


C *%** QUICK SCHEME 
CEP=(ABS(CE)+CE)*DXP1*DXI/(DXE*(DXE+DXW ))/8. 
CEM=(ABS(CE)-CE)*DXP1*DXI/(DXE*(DXE+DXEE) )/8. 
CWP=(ABS(CW)+CW)*DXM1*DXI/(DXW*(DXW+DXWW) )/8. 
CWM=(ABS(CW)-CW)*DXM1*DXI/(DXW*(DXW+DXE ))/8. 


CNP=(ABS(CN)+CN )*DYP1*DYJ/(CDYN*(DYN+DYS ))/8. 
CNM=(ABS(CN)-CN)*DYP1*DYJ/(DYN*(DYN+DYNN) )/8. 
CSP=(ABS(CS)+CS )*DYM1*DYJ/7 (DYS*( DYS7DySss pc. 
CSM=(ABS(CS)-CS)*DYM1*DYJ/(DYS*(DYS+DYN ))/8. 


CFP=(ABS(CF)+CF )*DZP1*DZK/(DZF*(DZF+DZB ))/8. 
CFM=(ABS(CF) -CF )*DZP1*DZK/(DZF*(DZF+DZFF) )/8. 
CBP=(ABS(CB)+CB)*DZM1*DZK/(DZB*(DZB+DZBB))/8. 
CBM=(ABS(CB)-CB)*DZM1*DZK/(DZB*(DZB+DZF ))/8. 


AE(1I,J,K)=- .5*CE*DXI /DXE+CEP+CEM*(1.+DXE/DXEE )+CWM*DXW/DXE 
AW(I,J,K)= .5*CW*DXI/DXW+CWM+CWP*(1.+DXW/DXWW)+CEP*DXE/DXW 
AN(1,J,K)=-.5*CN*DYJ /DYN+CNP+CNM*(1.+DYN/DYNN)+CSM*DYS/DYN 
AS(I,J,K)= .5*CS*DYJ/DYS+CSM+CSP*(1.+DYS/DYSS)+CNP*DYN/DYS 
AF(I,J,K)=- .5*CF*DZK /DZF+CFP+CFM*(1.+DZF/DZFF )+CBM*DZB/DZF 
AB(I,J,K)= .5*CB*DZK/DZB+CBM+CBP*(1.+DZB/DZBB)+CFP*DZF/DZB 


C 7% BOUNDARY CONSIDERATION 
IF (I.LT.NI+3) THEN 
AEE=-CEM*DXE /DXEE 
AEER=AEE*CPD(1I+2,J,K) 
ELSE 
AEE=0. 
AEER=0. 
ENDIF 


Pes Gia) aE 
AWW=-CWP*DXW/DXWW 
AWWR=AWW*CPD(I-2,J,K) 

ELSE 
AWW=0. 

AWWR=0. 

ENDIF 


IF (J.LT.NJ+3) THEN 
ANN=-CNM*DYN/DYNN 
ANNR=ANN*CPD(I ,J+2,K) 

ELSE 
ANN=0. 
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ANNR=0. 
ENDIF 


EG te 2) HEN 
ASS=-CSP*DYS/DYSS 
ASSR=ASS*CPD(I,J-2,K) 

ELSE 
ASS=0. 

ASSR=0. 

ENDIF 


IF (K.LT.NK+3) THEN 
AFF=-CFM*DZF/DZFF 
AFFR=AFF*CPD(I,J,K+2) 

ELSE 
AFF=0. 

AFFR=0. 

ENDIF 


RC Re Gl. 2) LEN 
ABB=-CBP*DZB/DZBB 
ABBR=ABB*CPD(1,J,K-2) 

ELSE 
ABB=0. 

ABBR=0. 

ENDIF 


C ** MODIFICATION FOR DECK BOUNDARIES 
IF (NOD(I-1,J,K).NE.0) THEN 
AWW=0 .0 
AWWR=0 .0 
ENDIF 


he SONG IK) NEO) THEN 
AEE=0 .0 
AEER=0 . 0 

ENDIF 


re SGNGo Jick 7 NE. 0)2 THEN 
ASS=0.0 
ASSR=0.0 

ENDIF 


Pe NGG +1, Kk) NE.O)- DHEN 
ANN=0 .0 
ANNR=0.0 

ENDIF 


PESCNOD(T 2) 5k-1).NE.0)° THEN 
ABB=0.0 
ABBR=0.0 

ENDIF 


IF (NOD(I,J,K+1).NE.0) THEN 


AFF=0 .0 
AFFR=0 .0 


7] 


ENDIF 


AP(I,J,K)=AE(1,J,K)+AW(I,J,K)+AN(1,J,K)+AS(1,J,K)+AF(I,J,K)+ 
iS AB(I,J,K)+AEE+AWW+ANN+ASS+AFF+ABB+CONDE1+CONDW 1+ 
& CONDN1+CONDS1+CONDF1+CONDB1 


AE(I,J,K)=AE(1I,J,K)+CONDE1 
AW(I,J,K)=AW(1,J,K)+CONDW1 
AN(I,J,K)=AN(1I,J,K)+CONDN1 
AS(I,J,K)=AS(1,J,K)+CONDS1 
AF(I,J,K)=AF(1,J,K)+CONDF1 
AB(I,J,K)=AB(1,J,K)+CONDB1 


SP(1,J,K)=-ROD(1,J,K)*VOLDT 
SU(I,J,K)=-SP(1I,J,K)*COD(I,J,K )+AEERtAWWR+ANNR+ASSR+AFFR+ABBR 
100 CONTINUE 


C ** TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 


C *** Y DIRECTION 

DO 500 I=2,NI+3 

DO 500 K=2,NK+3 
SP(I,3. ,K)=SP(I,3  ,K)+AS(1,3  ,K) 
SP(I,NJ+2,K)=SP(I,NJ+2,K)+AN(I ,NJ+2,K) 
ASG one) —or 
AN(I,NJ+2,K)=0. 

500 CONTINUE 


C *** X DIRECTION 

DO 600 J=2,NJ+3 

DO 600 K=2,NK+3 
SP(3.._ ,J,K)=SP(3. J, K)+AW(3.~— J JK) 
SP(NI+2,J,K)=SP(NI+2,J,K)+AE(NI+2,J,K) 
AW(3. =, J,K)=0.0 
AE(NI+2,J,K)=0.0 

600 CONTINUE 


C *** Z DIRECTION 

DO 700 I=2,NI+3 

DO 700 J=2,NJ+3 
SPimees )=SP(IeI0s 2 )248C1 Joe 
SP(1,J,NK+2)=SP(1I,J,NK+2)+AF(1I,J,NK+2) 
AB(I,J,3.  )=0. 
AF(I,J,NK+2)=0. 

700 CONTINUE 


C *** ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
DO 300 K=2,NK+3 
DO 300 J=2,NJ+3 
DO 300 I=2,NI+3 
NSE SO SVG ese 2) IK) 
300 CONTINUE 


C wx VOLUMETRIC MASS SOURCE INPUT 


VOLT=0 .0 
DO Tissi=2,Nit3 
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DOP iia I—2Z,NItS 

DO 113 K=2,NK+3 
DXI =DXXC(I) 
DYJ =DYYC(J) 
DZK =DZZC(K) 
VOL =DX1I*DYJ*DZK*H**3 
VOLT=VOLT+VOL 

113 CONTINUE 


DO 111 I=NHSZ(1,1),NHSZ(1,2) 
DO 111 J=NHSZ(2,1),NHSZ(2,2) 
DO 111 K=NHSZ(3,1),NHSZ(3,2) 
DGl Speer uy 
DYJ =DYYC(J) 
Zk =—0Z Zeck) 
VOL =DXI*DYJ*DZK 
SU(1,J,K)=SU(1,J,K)+VOL*H /(U0*RHOO*VOLT) 
111 CONTINUE 


C *** SOLVE FOR C 
CALL TRID (3,3,3,NI+2,NJ+2,NK+2,C) 


C *** Z DIRECTION 

DO 74 I=1,NI+4 

DO 74 J=1,NJ+4 
CGitIn> = =chlewn3” (CS) 
Gies.1 “y=C(iss,2- ) 
C(I,J,NK+3)=C(1I,J,NK+2) 
C(I,J,NK+4)=C(1,J ,NK+3) 

74 CONTINUE 


C *** Y DIRECTION 

DO 84 I=2,NI+3 

DO 84 K=2,NK+3 
C(I,NJ+3,K)=C(I,NJ+4,K) 
C(I ,NJ+4 ,K)=C(I,NJ+3,K) 
Gime Kk) =C( 1. 36K) 
@Q@eeth -K)=C(i. 2K) 

84 CONTINUE 


C *** X DIRECTION 

DO 80 J=1,NJ+4 

DO 80 K=1,NK+4 
Gem K)=6C. 3.50K) 
SOL ieee ee ain 
C(NI+3,J,K)=C(NI+2,J,K) 
C(NI+4,J,K)=C(NI+3,J,K) 

80 CONTINUE 


RETURN 
END 
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SUBROUTINE CALP 


when ake hes wes afin fe afe afc afc ales afc ales whe atic ate ato ntc ahs ale ule ale ale ate ale ale ule whe ate ale ates ale ule ale whe whe ale ale als ute ale abe ale ale whe ale ate ate ule ale ale at2 ats ato ate ale ule ale ale ate nto aSe ale ale ate ate ute ute ale ate toutes ate 
AR CV Gu GD CL ED ED ED ED ED ED ED GD ED ED ED ED ED ED ER GDL IL GR GDL ED AL GD ELIDA EDGR GL IR GD ER ER GR EL GD ACER EL EL GD IL GD AL ER GR ER EL ED EL EL GD GEER OD 4S IN IN OS ED OD OD OS ED ON OD OY 


*CALCULATES NODE PRESSURES 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON/R4/XC(40) ,YC(40) ,2C(40) ,XS(40) ,YS(40) ,2ZS(40) ,DXXC(40), 

& DYYC(40) ,DZZC(40) , DXXS(40) ,DYYS(40) ,DZZS(40) 

COMMON/BL1/DX,DY,DZ,DTIME,TCOOL,PI,Q,QR_ ° 

COMMON/BL7/NI,NJ ,NK,KRUN,NBLOR , NWRP 

COMMON /BL12/NWRITE,NTAPE ,NTMAXO ,NTREAL, TIME,SORSUM, ITER 

COMMON/BL22/CPS(20),CONS(20) ,WFAN(20) ,NCHIP, ICHPB( 20) ,NCHPI(20), 
JCHPB( 20) ,NCHPJ(20) ,KCHPB( 20) ,NCHPK( 20) 

COMMON/BL23/RMS(20),NMS, IMSB(20) ,NMSI(20) ,JMSB(20),NMSJ(20), 
KMSB(20) ,NMSK(20) 

COMMON/BL31/TOD( 25 ,25,15),ROD(25,25,15) ,POD(25,25,15), 
COD(25,25,15) ,UOD(25,25,15),VOD(25,25,15), 
WOD(25,25,15) 

COMMON /BL32/T(25 ,25,15),R(25,25,15),P(25,25,15),C(25,25,15), 
U(25,25,15),V(25,25,15),W(25,25,15) 

COMMON/BL34/HEIGHT(25,25,15) ,REQ(25,25,15),SMP(25,25,15), 
SMPP(25,25,15),PP(25,25,15),DU(25,25,15), 
DV(25,25,15),DW(25,25,15) 

COMMON /BL36/AP(25,25,15),AE(25,25,15) ,AW(25,25,15),AN(25,25,15), 
AS(25,25,15) ,AF(25,25,15),AB(25,25,15) ,SP(25, 25,15), 
SU(25,25,15),R1I(25,25,15) 

COMMON/BL37/VIS(25,25,15) ,COND(25,25,15) ,RESORM(40), 
CPM(25,25,15) ,NHSZ(3,2) ,NOD(25,25,15) 


— Q&S Q7 RQ Rm — 4) 


C ** CALCULATE COEFFICIENTS 
DO 100 K=2,NK+3 
DO 100 J=2,NJ+3 
DO 100 I=2,NI+3 


IF (NOD(1 {IRR EOs1 ) GOTe 1098 


C wee CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 
DXP1=DXXC(I+1) 
DXI =DXXC(I) 
DXM1=DXXC(I-1) 


DYP1=DYYC(J+1) 
DYJ =DYYC(J) 
DYM1=DYYC(J-1) 


DZP1=DZZC(Kt+1) 
DZK =DZZC(K) 
DZM1=DZZC(K-1) 


C *** SURFACE LENGTH OF THE CONTROL VOLUME 
DXN=DXXC(I) 
DXS=DXXC(I) 
DXF=DXXC(I) 
DXB=DXXC(I) 


DYF=DYYC(J) 
DY B=DyYYCCI) 
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DYE=DYYC(J) 
DYW=DYYC(J) 


DZE=DZZC(K) 
DZW=DZZC(K) 
DZN=DZZC(K) 
DZS=DZZC(K) 


C *«** DEFINE AREA OF THE CONTROL VOLUME 
DXYF=DXF*DYF 
DXYB=DXB*DYB 
DY ZE=DYE*DZE 
DY ZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DxXS 


VOL=DX I*DYJ*DZK 
VOLDT=VOL/DTIME 


G =* DENSITY AT THE SURFACES 


RN=(R(1,J,K)*DYP1+R(I ,J+1,K  )*DYJ)/(DYP1+DYJ) 
RS=(R(I,J,K)*DYM1+R(I ,J-1,K  )*DYJ)/(DYM1+DYJ) 
RE=(R(I,J,K)*DXPItR(I+1,J  ,K  )*DXI)/(DXP1+DXTI) 


RW=(R(I,J,K)*DXM1+R(I-1,J  ,K  )*DXI)/(DXM1+DX1) 
RF=(R(I,J,K)*DZP1+R(I  ,J  ,K+1)*DZK)/(DZP1+DZK) 
RB=(R(1,J,K)*DZM1+R(I ,J  ,K-1)*DZK)/(DZM1+DZK) 
AN(I,J,K)=RN*DZXN*DV(I ,J+1 
AS(1,J,K)=RS*DZXS*DV(I J 
AE(I,J,K)=RE*DYZE*DU(I+1,J 
AW(1,J,K)=RW*DYZW*DU(I  ,J 
AF(I,J,K)=RF*DXYF*DW(I  ,J 
AB(I,J,K)=RB*DXYB*DW(I J 


we ‘Ne ‘eo ‘eo we 
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K 
K 
K 
K 
K 
as 


CN=RN*V(I ,J+1,K 
CS=RS*V(I ,J_ ,Kk 
CE=RE*U(It1,J Kk 
CW=RW*U(I ,J. ,K 
CF=RF*W(I ,J  ,K 
CB=RB*W(I ,J._ ,K 


SMP(I,J,K)=-(R(1,J,K)-ROD(I,J,K))*VOLDT-CE+CW-CN+CS-CF+CB 
SU 1 d.K =eSMPC1,J,K) 
Se 4 Ae Oe 

100 CONTINUE 


C *** CONSIDER THE MASS SOURCE INPUT INTO THE CONTROL VOLUME 
TP SCNMS GE-1). THEN 
DO 150 M=1,NMS5 

IB=IMSB(M) 
IE=IB+NMSI(M)-1 
JB=JMSB(M) 
JE=JB+NMSJ(M)-1 
KB=KMSB(M) 
KE=KB+NMSK(M)-1 
BO 7100 T-1 By hee 1 


DOmIGO TI -—JB E> 1 
DO 160 K-KB,KE-1 
SUC1,J,Kj=sU(1 J, K)tRMSG 
160 CONTINUE 
150 CONTINUE 
ENDIF 


C *** TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 


C *** X DIRECTION 
DO 500 K=2,NK+3 
DO 500 I=2,NI+3 
ASL 2) eke) aor 
AN(I ,NJ+3,K)=0. 
500 CONTINUE 


C *** Y DIRECTION 
DO 501 K=2,NK+3 
DO 501 J=2,NJ+3 
AVI(2” ek oP 
AE(NI+3,J,K)=0. 
501 CONTINUE 


CG *** Z -DIREGTION 
DO 502 I=2,NI+3 
DO 502 J=2,NJ+3 
ABCI. 3,2 —=0- 
AF(I,J,NK+3)=0. 
502 CONTINUE 


C *** MODIFICATION FOR DECK BOUNDARIES 
IF ((NGHIP2EO 20) GOTG aap 
DO 101 N=1,NCHIP 
IB =ICHPB(N) 
LES =e NGHE uC ND = 
JB =JCHPB(N) 
JE* =JBt+NGHPICN)=1 
KB =KCHPB(N) 
KE =KB+NCHPK(N)-1 


DO 102 J=JB,JE-1 
DO 102 K=KB,KE-1 
AE(IB-1,J,K)=0.0 
AW(1E ,J,K)=0.0 
102 CONTINUE 


DO 103 I=IB,IE-1 
DO 103 K=KB,KE-1 
AN(1I,JB-1,K)=0.0 
noth Ihe ho j=000 
103 CONTINUE 


DO 106 I=IB,IE-1 

DO 106 J=JB,JE-1 
AF(1,J,KB-1)=0.0 
AB(I,J,KE )=0.0 
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106 CONTINUE 


C **%* FOR THE CELLS INSIDE OF THE DECKS 
Dio) OVA 0s gen 
DO 104 J=JB,JE-1 
DO 104 K=KB,KE-1 
SP(I,J,K)=-1.0E2 
AW(1,J,K)=0. 
AE Cle) Or 
AS(1,J,K)=0. 
AN(I ,J,K)=0. 
AB(1,J,K)=0. 
AF(I,J,K)=0. 
Sui en 0. 
104 CONTINUE 
101 CONTINUE 


C *%** ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
110 DO 300 I=2,NI+3 
DO 300 J=2,NJ+3 
DO 300 K=2,NK+3 
AP(I,J,K)=AN(I,J,K)+AS(1I,J,K)+AE(1,J,K)+AW(I,J,K)-SP(1I,J,K) 
& +AF(1I,J,K)+AB(1,J,K) 
300 CONTINUE 


C *** SOLUTION OF FINITE DIFFERENCE EQUATION 
CA le IRD (3-350 sNiEoeNI 2 NKt2, PP} 


C *** CORRECTION FOR VELOCITY U 
DO 600 I=3,NI+3 
DO 600 J=2,NJ+3 
DO 600 K=2,NK+3 
U(I,J,K)=U(1I,J,K)+DU(1,J,K)*(PP(I-1,J,K)-PP(I,J5K)) 
600 CONTINUE 


C #* CORRECTION FOR VELOCITY V 
DO 603 J=3,NJ+3 
DO 603 K=2,NK+3 
DO 603 I=2,NI+3 
VC1,J,K)=VC1,J,K)+DV(1,J,K)*(PP(1,J-1,k)-PP(1,J,K)) 
603 CONTINUE 


C *** CORRECTION FOR VELOCITY W 
DO 604 K=3,NK+3 
DO 604 I=2,NI+3 
DO 604 J=2,NJ+3 
W(I,J,K)=W(1,J,K)+DW(1I,J,K)*(PP(1,J,K-1)-PP(1I,J,K)) 
604 CONTINUE 


C *%** CORRECTION FOR PRESSURE P 
DO 606 J=1,NJ+4 
DO 606 I=1,NI+4 
DO 606 K=1,NK+4 
P (1,J,K)=P(I,J,K)+PP(1I,J,K) 
PP(I,J,K)=0. - 
606 CONTINUE 
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C *** RESET THE VELOCITY INSIDE OF DECK 

IF (NCHIP.EQ.0) GOTO 121 

DO 120 N=1,NCHIP 
IB=ICHPB(N) 
IE=IB+NCHPI(N)-1 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 
DO 109 I=IB,IE 
DO 109 J=JB,JE-1 
DO 109 K=KB,KE-1 

UCI,J,K)=0.0 
109 CONTINUE 


DO Le. [=1 Bisa 
DO’ 11S 9J=JB IE 
DO 118 K=KB,KE-1 
VCI.JjK)=0-0 
118 CONTINUE 


DO 119 I=IB,IE-1 
DO 119 J=JB,JE-1 
DOMINOe Khe, KE 
W(I,J,K)=WFAN(N) 
119 CONTINUE 
120 CONTINUE 


C ** RECALCULATE THE ERROR SOURCE AFTER CORRECTIONS OF U, V, P 
121 SORSUM=0. 
RESORM(ITER)=0. 
DO 700 J=2,NJ+3 
DO 700 I=2,NI+3 
DO 700 K=2,NK+3 
IF (NOD(I,J,K).NE.1) THEN 


C *«** CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 
DXP1=DXXC(I+1) 
DXI =DXXC(I) 
DXM1=DXXC(I-1) 


DYP1=DYYC(J+1) 
DYJ) =DYYCCI> 
DYM1=DYYC(J-1) 


DZP1=DZZC(K+1) 
DZK =DZZC(K) 
DZM1=DZZC(K-1) 


C *** SURFACE LENGTH OF THE CONTROL VOLUME 
DXN=DXXC( I) 
DXS=DXXC(T) 
DXF=DXXC(1) 
DXB=DXXC(1) 
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DYF=DYYC(J) 
DYB=DYYC(J) 
DYE=DYYC(J) 
DYW=DYYC(J) 


DZE=DZZC(K) 
DZW=DZZC(K) 
DZN=DZZC(K) 
DZS=DZZC(K ) 


C *** DEFINE AREA OF THE CONTROL VOLUME 
DXYF=DXF*DYF 
DXYB=DXB*DYB 
DY ZE=DYE*DZE 
DY ZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 


VOL=DXI*DYJ*DZK 
VOLDT=VOL/DT IME 


C *** CALCULATE DENSITY 


RN=(R Cle)? Dirt th let k SeDYa)/ (DYPItDY! ) 
Ro=Ch Cig h) DM Geo eke oD I (DYN iaDyd) 
RE=(R(15I,K)*DKPIFR CIs L, oe De) ODP t tix 1) 


J 
RW=(RCI,J,K)*DXM1+RCI-1, K )*DXI)/(DXM1+DXI) 
RF=(RCI,J,K)*DZP1+R(I ,J~ = ,K+1)*DZK)/(DZP1+DZK) 
RB=(RCI,J,K)*DZM1+R(I ,J  ,K-1)*DZK)/(DZM1+DZK) 


CN=RN*V(I ,J+1,K  )*DZXN 
CS=RS*V(I ,J ,K )*DZXS 
CE=RE*U(I+1,J  ,K )*DYZE 


CW=RW*UCI ,J ,K )*DYZW 
CF=RF*W(I ,J = ,K+1)*DXYF 
CB=RB*W(I ,J ,K )*DXYB 
SMP(I,J,K)=(ROD(I,J,K)-RCI,J,K) )*VOLDT-CE+CW-CN+CS-CF+CB 


C **% SORSUM IS ACTUAL MASS INCREASE OR DECREASE FROM CONTINUITY 
C *#** EQUATION, THIS WILL BE COMPARED TO MASS SOURCE 


C *%%* CONSIDER THE MASS SOURCE INPUT INTO THE CONTROL VOLUME 
IF (NMS.GT.0) THEN 
DO 250 M=1,NMS 
IB=IMSB(M) 
IE=IBt+NMSI(M)-1 
JB=JMSB(M) 
JE=JB+NMSJ(M)-1 
KB=KMSB(M) 
KE=KB+NMSK(M)-~-1 
DO 260 II=IB,IE-1 
DO 260 JJ=JB,JE-1 
DO 260 KK=KB,KE-1 
IF ((II.EQ.I).AND.(JJ.EQ.J).AND.(KK.EQ.K)) THEN 
SMP(I,J,K)=SMP(1,J,K)+RMS(M) 
ENDIF 
260 CONTINUE 
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250 CONTINUE 
ENDIF 
SORSUM=SORSUM+SMP(I,J,K) 


C *** RESORM IS SUM OF THE ABSOLUTE VALUE OF SMP(I,J,K) 
RESORM( ITER )=RESORMC ITER) +ABS(SMP(1,J,K)) 
ENDIF 


700 CONTINUE 
RETURN 
END 
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SUBROUTINE CALQ 
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*VARIABLES: 

* BR = MAXIMUM BURN RATE (LBM/SEC) 
|e = MAXIMUM FUEL AVAILABLE (LBM) 
ek = TOTAL FUEL REMAINING (LBM) 

* OH = REFERENCE LENGTH (FT) 

2 GE = HEAT OF COMBUSTION (BTU/LBM) 
* HSTART= FIRE START TIME (SECONDS) 

* Q = TOTAL HEAT INPUT (BTU/SEC) 

* TIME = NONDIMENSIONAL FIRE TIME 

* U0 = REFERENCE VELOCITY (F1/sk@) 
* XTIME = FIRE TIME (SECONDS) 


whee whee wes Ts whee whee whe whee whee abn ale whee whee whe whe ale whe whee whee abn ohn abn whee whee wee whee ate whee ahs whee aber whole ahs mbes whee Sen whee whe whee ales ate wher whe whee whee whee whe ale ale whe whe whe whe ate whe whe whe abe ake whe ate ake whe ate who he whe whe whe ale ale 
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IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON /BL1/DX,DY ,DZ,DTIME,TCOOL,PI,Q,QR 
COMMON/BL2/X,Y,H,TFLR,TWAL 

COMMON /BL3/F,FR,HSTART 
COMMON/BL12/NWRITE ,NTAPE ,NTMAXO ,NTREAL, TIME, SORSUM, ITER 
COMMON /BL16/U0 , UGRT, BUOY ,CPO , PRT,CONDO,VISO,RHOO, 


& TA, DTEMP, TWRITE,TTAPE, TMAX ,GC,RAIR,NT 
XT IME=TIME*H/UO 
HC=2600.0 
BR= OF 01 


C *** CALCULATE HEAT RELEASE RATE (Q) IN BTU/SEC 
C *** NOTE: THESE ALGORITHMS ASSUME A LINEAR INCREASE IN BOTH 
C x HEAT RELEASE AND FUEL CONSUMPTION OVER THE FIRST 
Cave TWO SECONDS OF FIRE TIME, AFTER WHICH BOTH ARE AT 
C wrt MAXIMUM 
IF(XTIME.LT.HSTART) THEN 
@-00 
FR=F 


ELSEIF(XTIME.GE.HSTART.AND.(XTIME-HSTART).LE.2.0) THEN 
IF(FRIEE-0-0)) THEN 
Q =0.0 
FR=0 .0 
EES 
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Q =HC*BR*(XTIME-HSTART) /2. 
FR=F-BR*(XTIME-HSTART)**2/2. 
ENDIF 
ELSEIF((XTIME-HSTART).GT.2.0) THEN 
IF(FR.LE.0.0) THEN 
Q =0.0 
FR=0 .0 
ELSE 
Q =HC*BR 
FR=F-BR*(XTIME-HSTART) 
ENDIF 
ENDIF 


C *** TAKE RADIATION HEAT FLUX INTO ACCOUNT 
Q=Q-QR 
i) (CO. E sOmannO=0- 


RETURN 
END 
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SUBROUTINE CALT 
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IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON/R4/XC(40) , YC(40) ,2ZC(40) ,XS(40) ,YS(40) ,2S(40) ,DXXC(40), 

S DYYC(40) ,DZZC(40) ,DXXS(40) , DYYS(40) ,DZZS(40) 

COMMON/BL1/DX , DY ,DZ,DTIME,TCOOL, PI ,Q,QR 

COMMON/BL2/X,Y,H,TFLR, TWAL 

COMMON/BL7/NI ,NJ,NK,KRUN,NBLOR ,NWRP 

COMMON/BL14/HCOEF ,CNT , ABTURB, BTURB, VISL,VISMAX 

COMMON/BL16/U0 ,UGRT , BUOY, CPO , PRT, CONDO , VISO , RHOO, 

TA, DTEMP, TWRITE, TTAPE, TMAX ,GC ,RAIR,NT 

COMMON /BL23/RMS(20) ,NMS, IMSB(20) ,NMSI(20) ,JMSB(20),NMSJ(20), 
KMSB( 20) ,NMSK( 20) 

COMMON/BL31/TOD(25,25,15) ,ROD(25,25,15) ,POD(25,25,15), 
COD(25,25,15) ,U0D(25, 25,15) ,VOD(25,25,15), 
WOD(25,25,15) 

COMMON /BL32/T(25,25,15) ,R(25, 25,15) ,P(25, 25,15) ,C(25,25,15), 
U(25,25,15),V(25, 25,15) ,W(25,25,15) 

COMMON /BL33/TPD(25,25,15),RPD(25,25,15),PPD(25,25,15), 
CPD(25,25,15),UPD(25,25,15),VPD(25,25,15), 
WPD(25,25,15) 

COMMON /BL34/HEIGHT( 25, 25,15) ,REQ(25,25,15),SMP(25, 25,15), 
SMPP(25,25,15),PP(25,25,15),DU(25,25,15), 
DV(25,25,15),DW(25,25,15) 

COMMON /BL36/AP(25,25,15),AE(25,25,15) ,AW(25,25,15),AN(25,25,15), 
AS(25,25,15),AF(25,25,15),AB(25, 25,15) ,SP(25,25,15), 
SU(25,25,15),R1I(25, 25,15) 

COMMON /BL37/VIS(25,25,15) ,COND(25,25,15),RESORM(40), 

& CPM(25,25,15),NHSZ(3,2),NOD(25,25,15) 

COMMON /BL39 /ALEW , CONSRA ,QSIN, QSWER , QSWAL, QSAIR ,QSFAN 
COMMON /BL43/QSCONF , QSCONB , QSCONE ,QSCONW ,QSCONN ,QSCONS, 
& QSRADF ,QSRADB ,QSRADE ,QSRADW,QSRADN ,QSRADS, 
Ss WAIR,WWAL,WINS,WERR , WWFAN 
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CALCULATE COEFFICIENTS 
DO 100 K=2,NK+3 
DO 100 J=2,NJ+3 
DO 100 I=2,NI+3 


DXP1=DXXCC( I+1) 
DXI =DXXC(I) 
DXM1=DXXC(I-1) 


DYE =DyyYe( Isl) 
DYJ =DYYC(J) 
DIM i=pryeCs= 1) 


DZP1=DZZC(Kt+1) 
DZK =DZZC(K) 
DZM1=DZZC(K-1) 


DXN=DXXC( 1) 
DXS=DXXC(1) 
DXF=DXXC( I) 
DXB=DXXC(1) 


DYF=DYYC(J) 
DYB=DYYC(J) 
DYE=DYYC(J) 
DYW=DYYC(J) 


DZE=DZZC(K) 
DZW=DZZC(K) 
DZN=DZZC(K) 
DZS=DZZC(K ) 


DXEE=DXXS(I+2) 
DXE =DXXS(I+1) 
DXW =DXXS(1) 

DXWW=DXXS(I-1) 


DYNN=DYYS(J+2) 
DYN =DYYS(J+1) 
DYS =DYYS(J) 

DYSS=DYYS(J-1) 


DZFF=DZZS(K+2) 
DZF =DZZS(K+1) 
DZB =DZZS(K) 

DZBB=DZZS(K-1) 


NONDIMENSIONAL REFERENCE TEMPERATURE 
TINF=TA/TA 


CENTRAL LENGTH OF THE TEMPERTURE CONTROL VOLUME 


SURFACE LENGTH OF THE CONTROL VOLUME 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR TEMPERATURE 


C *** DEFINE THE AREA OF THE CONTROL VOLUME 


DXYF=DXF*DYF 
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DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 


VOL=DX I*DYJ*DZK 
VOLDT=VOL/DT IME 


**% FOR CONDUCTION 


ZXOYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DY ZE/DXE 
YZOXW=DY ZW /DXW 


DENSITY AT THE SURFACES 
GN=(R(1,J,K)*DYP1+R(I ,J+1,K)*DYJ)/(DYP1+DYJ) 
GS=(R(1,J,K)*DYM1+R(1I,J-1,K)*DYJ) /(DYM1+DYJ) 
GE=(R(1,J,K)*DXP1+R(I+1,J,K)*DXI) /(DXP1+DX1I) 
GW=(R(1,J,K)*DXM1+R(I-1,J,K)*DXI)/(DXM1+DXI) 
GF=(R(1,J,K)*DZP1+R(1I,J,K+1)*DZK)/(DZP1+DZK) 
GB=(R(1,J,K)*DZM1+R(1,J,K-1)*DZK)/(DZM1+DZK) 


wee THE MASS FLUX RATE THROUGH THE SURFACES 


CN=GN*V(I,J+1,K)*DZXN 
CS=GS*V(I,J  ,K)*DZXS 
CE=GE*U(I+1,J,K)*DYZE 
CW=GW*U(I ,J,K)*DYZW 
CF=GF*W(1,J,K+1)*DXYF 
CB=GB*W(1,J,K )*DXYB 


CONDUCTIVITY AT THE SURFACES 
CONDN=(DYP1+DYJ)*COND(I,J,K)*COND(I ,J+1,K)*DYJ*DYP1/ 
(DYJ*COND(1I,J,K)+DYP1*COND(I,J+1,K)) 
CONDS=(DYM1+DYJ )*COND(I,J,K)*COND(I,J-1,K)*DYJ*DYM1/ 
(DYJ*COND(1I,J,K)+DYM1*COND(I,J-1,K)) 
CONDE=(DXP1+DXI )*COND(I,J,K)*COND(I+1,J ,K)*DXI*DXP1/ 
(DXI*COND(1,J,K)+DXP1*COND(I+1,J,K)) 
CONDW=(DXM1+DXI )*COND(I,J,K)*COND(I-1,J,K)*DXI*DXM1/ 
(DXI*COND( I,J ,K)+DXM1*COND(I-1,J,K)) 
CONDF=(DZP1+DZK)*COND(1I,J,K)*COND(I,J,K+1)*DZK*DZP1/ 
(DZK*COND(1,J,K)+DZP1*COND(1,J,K+1)) 
CONDB=(DZM1+DZK )*COND(I,J,K)*COND(I ,J ,K-1)*DZK*DZM1/ 
(DZK*COND(I,J,K)+DZM1*COND(1I,J,K-1)) 


G *** CONDUCTION COMPONENT 


CONDN 1=ZXOYN*CONDN 
CONDS 1=ZXOYS*CONDS 
CONDE 1=Y ZOXE*CONDE 
CONDW 1=Y ZOXW*CONDW 
CONDF 1=X YOZF*CONDF : 
CONDB1=XYOZB*CONDB 


C **«* QUICK SCHEME 
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CEP=(ABS(CE )+CE)*DXP1*DXI/(DXE*(DXE+DXW )*8. 
CEM=(ABS(CE)-CE)*DXP1*DXI/(DXE*(DXE+DXEE)*8. 
CWP=(ABS(CW)+CW)*DXM1*DXI/(DXW*(DXW+DXWW)*8. 
CWM=(ABS(CW)-CW)*DXM1*DXI/(DXW*(DXW+DXE )*8. 


CNP=(ABS(CN)+CN)*DYP1*DYJ/(DYN*(DYN+DYS )*8. 
CNM=(ABS(CN)-CN)*DYP1*DYJ/(DYN*(DYN+DYNN )*8. 
CSP=(ABS(CS)+CS )*DYM1*DYJ / (DYS*(DYS+DYSs)*8; 
CSM=(ABS(CS)-CS)*DYM1*DYJ/(DYS*(DYS+DYN )*8. 


CFP=(ABS(CF)+CF)*DZP1*DZK/ (DZF*(DZF+DZB )*8. 
CFM=(ABS(CF)-CF)*DZP1*DZK/ (DZF*(DZF+DZFF)*8. 
CBP=(ABS(CB)+CB)*DZM1*DZK/ (DZB*(DZB+DZBB)*8. 
CBM=(ABS(CB)-CB)*DZM1*DZK/(DZB*(DZBt+DZF )*8. 


Nee Nee Nee” ee” 


AE(I,J,K)=- .5*CE*DXI /DXE+CEP+CEM*(1 . +DXE/DXEE) FCWM=DXWy tae 
AW(I,J,K)= .5*CW*DXI/DXW+CWM+CWP*(1.+DXW/DXWW) +CEP*DXE/DXW 
AN(I,J,K)=- .5*CN*DYJ/DYN+CNP+CNM*(1.+DYN/DYNN )+CSM*DYS/DYN 
AS(I,J,K)= .5*CS*DYJ/DYS+CSM+CSP*( 1. +DYS/DYSS ) FENP“<DYN 7 aes 
AF(1,J,K)=-.5*CF*DZK/DZF+CFP+CFM“(1 . +DZF/DZFE )+CBM*DZB, ae 
AB(I,J,K)= .5*CB*DZK/DZB+CBM+CBP*(1.+DZB/DZBB)+CFP*DZF /DZB 


C *** BOUNDARY CONSIDERATIONS 
LE aCi Pen S) HEN 
AEE=-CEM*DXE/DXEE 
AEER=AEE*TPD(1t2,J,K)*CPHCI Zak) 
ELSE 
AEE=0. 
AEER=0. 
ENDIF 


ee (IG hk 2 ye HEN 
AWW=-CWP*DXW/DXWW 
AWWR=AWW*TPD(I-2,J,K)*CPM(I-2,J,K) 
ELSE 
AWW=0. 
AWWR=0. 
ENDIF 


TE eG Nice S)) nN 
ANN=-CNM*DYN/DYNN 
ANNR=ANN*TPD( I ,J+2,K)*CPMCI ,J+2,K) 


PPG Gl) THEN 
ASS=-CSP*DYS/DYSS 
ASSR=AS5*TPD(1,J<2,K) “CPN ieee 
EnSE 
ASS=0. 
ASSR=0. 
ENDIF 


LPC. GENK se tHeN 
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AFF=-CFM*DZF/DZFF 
AFFR=AFF*TPD(I,J,K+2)*CPMCI,J,K+2) 
ELSE 
AFF=0. 
AFFR=0. 
ENDIF 


IF (K.GT.2) THEN 
ABB=-CBP*DZB/DZBB 
ABBR=ABB*TPD(1,J,K-2)*CPM(I ,J,K-2) 
ELSE 
ABB=0. 
ABBR=0. 
ENDIF 


C *** MODIFICATION FOR DECK BOUNDARIES 
Fey Cenel— 1) NEO) THEN 
AWW=0 .0 
AWWR=0 .0 
ENDIF 


IF (NOD(I+1,J,K).NE.0) THEN 
AEE=0.0 
AEER=0.0 

ENDIF 


hE NOD CI ASK) NE 20) THEN 
ASS=0 .0 
ASSR=0 .0 

ENDIF 


eNO DG I 3+ 1k) NESO) THEN 
ANN=0 .0 
ANNR=0.0 

ENDIF 


hESC NO Ch. K=1) (NE 20) THEN 
ABB=0.0 
ABBR=0 .0 

ENDIF 


IF (NOD(I,J,K+1).NE.0) THEN 
AFF=0.0 
AFFR=0 .0 

ENDIF 


AP(I,J,K)=(AE(I ,J,K)+AW(1,J,K)+AN(I,J,K)+AS(1,J,K)+AF(1I,J,K)+ 

& AB( I,J ,K )+AEE+AWW+ANN+ASS+AFF+ABB)*CPM(I,J,K)+ 

z CONDE1+CONDW1+CONDN1+CONDS1+CONDF1+CONDB1 
AE(I,J,K)=AE(1,J,K)*CPM(It+1,J  ,K  )+CONDE1 
AW(I,J,K)=AW(I,J,K)*CPM(I-1,J  ,K  )+CONDW1 
AN(I,J,K)=AN(I,J,K)*CPM(I ,J+1,K )+CONDN1 
AS(1,J,K)=AS(1,J,K)*CPM(I 1,K )+CONDS1 
AF(I,J,K)=AF(I,J,K)*CPM(I ,J  ,K+1)+CONDF1 
AB(I,J,K)=AB(I,J,K)*CPM(I ,J  ,K-1)+CONDB1 


ww 


a+ 
Ae 
2 
J 
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SP(I,J,K)=-ROD(I,J,K)*VOLDT*CPM(I,J,K) 
SU(I,J,K)=-SP(1,J,K)*TOD(I,J,K)+AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
100 CONTINUE 


C *** TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 


C 4% Y-DIRECTION 

DO 500 I=3,NI+2 

DO 500 K=3,NKt+2 
SU(I,3. ,K)=SUCE,3. 9K) tAS(Ie 3 0 eR) 1 CE) 
SU(I ,NJ+2 ,K)=SU(I ,NJ+2,K)+AN(I,NJ+2,K)*T(1I,NJ+3,K) 
AS(I,3 ,K)=0. 
AN(I ,NJ+2,K)=0. 

500 CONTINUE 


C #8 X-DIRECTION 
DO 600 J=3,NJ+2 
DO 600 K=3,NK+2 
SU(3..—s, J, K)=SU(3. sg J, K)4AWC3) JK) * TC ee 
SU(NI+2,J,K)=SU(NI+2,J,K)+AE(NI+2,J,K)*T(NI+3,J,K) 
AW(3.—_, J, K)=0.0 
AE(NI+2,J,K)=0.0 
600 CONTINUE 


G *#** Z-DIRECTION 
DO 700 I=3,NI+2 
DO 700 J=3,NJ+2 
SUCI,J,3)) )=SUCT,J,3. +J+ABCIE 1.300) 100 
SU(I,J,NK+2)=SU(I,J,NK+2)+AF(I,J,NK+2)*T(I,J,NK+3) 
AB(I,J,3  )=0. 
AF(I,J,NK+2)=0. 
700 CONTINUE 


C *** CONSIDER THE MASS SOURCE INPUT TO THE CONTROL VOLUME 
PP SONS Gh Hen 
DO 150 M=1,NMS 

IB=IMSB(M) 

IE=IB+NMSI(M)-1 

JB=JMSB(M) 

JE=JB+NMSJ(M)-1 

KB=KMSB(M) 

KE=KB+NMSK(M)-1 

POV16O st -1b Vie = 

DOMICO eI =JB JE = 1. 

DO 160 K=KB,KE-1 

IF CRMNSIO) = GE 0 0 ee aiiEen 
RMSCPT=RMS(M)*1.0*CPM(I,J,K) 


ELSE 
RMSCPT=RMS(M)*T(I,J,K)*CPM(I,J,K)*R(1I,J,K) 
ENDIF 
160 CONTINUE 
150 CONTINUE 


ENDIF 


C **%* CONSIDER THE RADIATION HEAT FLUX FROM THE FIRE TO THE BLOCK 
CALL RADHT (2) 
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ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
DOr300 K-3ENKF2 
DO 300 J=3,NJ+2 
DO 300 w= 3 NIF2 
AEG bh =neGlsd ,K)-sPC Id) 
CONTINUE 


VOLUME HEAT SOURCE INPUT 


CALCULATE THE TOTAL VOLUME OCCUPIED BY HEAT SOURCE 
DISTRIBUTE ENERGY INTO EACH CONTROL VOLUME 
QQQ/H**3 DIMENSIONLESS HEAT SOURCE 


VOLT=0 .0 

DO 113 I=NHSZ(1,1),NHSZ(1,2) 

DOs =VHSa2 1) NHSZ(2 2) 

DO 113 K=NHSZ(3,1),NHSZ(3,2) 
QQQ=0*H / (U0*CPO*RHOO*TA) 
VOL=DXXC( 1 )*DYYC(J)*DZZC(K) 
VOLT=VOLT+VOL*H**3 
SU(1,J,K)=SU(I,J,K)+VOL*QQQ/VOLT 

CONTINUE 


SOLVE FOR T 
CA UT DaG255. 5 NIt2 NIFZ NK +2. 7) 


DO 2001 I=1,NI+4 
DO 2001 J=1,NJ+4 
DO 2001 K=1,NK+4 

ImG@ciel Kein TCOOL) TCI, J. Kk )=NCOOL 
CONTINUE 


* CALCULATE RADIATION HEAT TRANSFER 


HERE SU(I,J,K) IS USED TO STORE THE RADIATIVE HEAT FLUX 
DO 75 I=1,NI+4 
DO 75 J=1,NJ+4 
DO 75 K=1,NK+4 
SU(I,J,K)=0. 
CONTINUE 


CONSIDER THE RADIATION HEAT FLUX FROM THE FIRE TO THE WALL 
CALL RADHT (1) 


* SUMMATION OF CONDUCTION HEAT FLUX AND RADIATION HEAT FLUX TO WALLS 


QSCONF=0. 
QSCONB=0. 
QSCONE=0. 
QSCONW=0. 
QSCONN=0. 
QSCONS=0. 


QSRADF=0. 


QSRADB=0. 
QSRADE=0. 
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QSRADW=0. 
QSRADN=0. 
QSRADS=0. 


C *** CALCULATE CONDUCTION, RADIATION & TEMPERATURE ON THE SOLID WALLS 


DO 
DO 


C #4 ON 


C *** ON 


74 I=3,NI+2 
74 J=3,NJ+2 


THE BACK WALL 

DAK DzZZG) 

DZP1=DZZC(3) 

DxI =Dxxca 

DYJ =DYYC(J) 

DXY =DXI*DYJ 

VOL =DXY*D2K 

CONDF=(DZP1+DZK )*DZK*DZP1*COND(I ,J,2)*COND(1,J,3)/ 
(DZK*COND(I ,J,2)+DZP1*COND(I,J,3)) 

QCONF=DXY*CONDF*(T(1,J,3)-T(1,J,2) )*2.0/(DZP1+DZK) 

QCONB=DXY*COND(1,J,2)*(T(I,J,1)-T(1I,J,2))*2.0/DZK 

QRADB=SU(I,J,2) 


T(1,J,2)=TOD(1,J,2)+DIIME*(QCONF+QCONB+QRADB)/ (VOL*CPMCI yaa 
TCI, J;1)=( 2. *COND(UI,J , 2040155, 2) FHCOEF- fini ier, 
(HEOBF*DZK+2- =CONDOT a. 2))) 


QSCONB=QSCONB+QCONF 
QSRADB=QSRADB+QRADB 


THE FRONT WALL 

DZK =DZZC(NK+3) 

DZM1=DZZC(NK+2) 

Die Cl) 

DYJ =DYYC(J) 

DXY =DXI*DYJ 

VOL =DXY*DZK 

CONDB=(DZM1+DZK )*DZK*DZM1*COND(I ,J,NK+3)*COND(I,J,NK+2)/ 
(DZK*COND(I ,J ,NK+3)+DZM1*COND(I,J,NK+2)) 

QCONB=DXY*CONDB*(T(1I,J,NK+2)-T(1,J,NK+3) )*2.0/(DZK+DZM1) 

QCONF=DXY*COND(I ,J,NK+3)*(T(1,J,NK+4)-T(1,J,NK+3))*2.0/DZK 

QRADF=SU(1I,J,NK+3) 


T(1,J,NK+3)=TOD(I,J,NK+3)+DTIME*(QCONB+QCONF+QRADF) / 
(VOL*CPM(I,J,NK+3)) 

T(1,J,NK+4)=(2.0*COND(I,J,NK+3)*T(1,J,NK+3)+HCOEF*TINF*DZK) / 
(HCOEF*DZK+2 .0*COND(I,J,NK+3)) 


QSCONF=QSCONF+QCONB 
QSRADF=QSRADF+QRADF 


74 CONTINUE 


DO 84 I=3,NI+2 
DO 84 K=3,NK+2 


C *** ON THE SOUTH WALL 


DYJ =DYYC(2) 
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C wt ON 


DYP1=DYYC(3) 

DXI =OxxGC1) 

DZk =baZeCK) 

DZX =DZK*DXI 

VOL =DZX*DYJ 

CONDN=(DYP1+DYJ )*DYJ*DYP1*COND(I ,2,K)*COND(I,3,K)/ 

(DYJ*COND(I ,2,K)+DYP1*COND(I ,3,K)) 

QCONN=DZX*CONDN*(T(1,3,K)-T(1,2,K))*2.0/(DYP1+DYJ) 

QCONS=DZX*COND(I,2,K)*(T(I,1,K)-T(1I,2,K))*2.0/DYJ 

QRADS=SU(I,2,K) 

T(1,2,K)=TOD(I ,2,K)+DTIME*(QCONN+QCONS+QRADS) / 
(VOL*CPM(I,2,K)) 

T(I,1,K)=(2.0*COND(I,2 ,K)*T(1,2 ,K)+HCOEF*TINF*DYJ) / 
(HCOEF*DYJ+2.0*COND(I,2 ,K)) 


QSCONS=QSCONS+QCONN 
QSRADS=QSRADS+QRADS 


THE NORTH WALL 

DYJ =DYYC(NJ+3) 

DYM1=DYYC(NJ+2) 

DXI =DXXC(I) 

DZK =DZZC(K) 

DZX =DZK*DXI 

VOL =DZX*DYJ 

CONDS=(DYM1+DYJ )*DYJ*DYM1*COND(I ,NJ+3,K)*COND(I,NJ+2,K)/ 

(DYJ*COND(I ,NJ+3,K)+DYM1*COND(I ,NJ+2,K)) 

QCONS=DZX*CONDS*(T(I,NJ+2,K)-TCI,NJ+3 ,K) )*2.0/(DYM1+DYJ) 

QCONN=DZX*COND(I,NJ+3,K)*(T(I,NJ+4,K)-T(I,NJ+3,K))*2.0/DYJ 

QRADN=SU(I,NJ+3,K) 

T(I,NJ+3,K)=TOD(I ,NJ+3 ,K)+DTIME*(QCONS+QCONN+QRADN) / 
(VOL*CPM(I,NJ+3,K)) 

T(I,NJ+4,K)=(2.0*COND(I ,NJ+3,K)*T(I,NJ+3,K)+HCOEF*TINF*DYJ) / 
(HCOEF*DYJ+2.0*COND(I,NJ+3,K)) 


QSCONN=QSCONN+QCONS 
QSRADN=QSRADN+QRADN 


84 CONTINUE 


DO 80 J=3,NJ+2 


DO 


80 K=3,NK+2 


C *** ON THE WEST WALL 


DXI =DXXC(2) 

DXP1=DXXC(3) 

DYJ =DYYC(J) 

ZK e=DAZ60N ) 

DYZ =DYJ*DZK 

VOL =DYZ*DXI 

CONDE=(DXP1+DXI )*DXI*DXP1*COND(2,J,K)*COND(3,J K)/ 
(DXI*COND(2 ,J ,K)+DXP1*COND(3,J,K)) 

QCONE=DYZ*CONDE *(T(3,J,K)-T(2,J3,K))*2.0/(DXI+DXP1) 

QCONW=DYZ*COND(2,J,K)*(T(1,J,K)-T(2,J,K))*2.0/DXI ~ 

QRADW=SU(2,J,K) 

T(2,J,K)=TOD(2,J ,K)+DTIME* (QCONE+QCONW+QRADW) /(VOL*CPM(2,J,K)) 

T(1,J,K)=(2.0*COND(2 ,J,K)*T(2 ,J,K)+HCOEF*TINF*DXI) / 
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C *#* ON 


(HCOEF*DXI+2.0*COND(2,J,K)) 


QSCONW=QSCONW+QCONE 
QSRADW=QSRADW+QRADW 


THE EAST WALL 

DXI =DXXC(NI+3) 

DXM1=DXXC(NI+2) 

DYJ =DYYC(J) 

DZK =DZZC(K) 

DYZ =DYJ*DZK 

VOL =DYZ*DXI 

CONDW=(DXM1+DXI)*DXI*DXM1*COND(NI+3 ,J,K)*COND(NI+2,J,K)/ 

(DXI*COND(NI+3,J,K)+DXM1*COND(NI+2,J,K)) 

QCONW=DYZ*CONDW *(T(NI+2,J,K)-T(NI+3,J,K))*2.0/(DXI+DXM1) 

QCONE=DYZ*COND(2,J,K)*(TC(NI+4,J,K)-T(NI+3,J,K))*2.0/DXI 

QRADE=SU(NI+3,J,K) 

T(NI+3,J,K)=TOD(NI+3,J,K)+DTIME*(QCONW+QCONE+QRADE) / 
(VOL*CPM(NI+3,J,K)) 

T(NI+4 ,J,K)=(2.0*COND(NI+3,J,K)*T(NI+3,J,K)+HCOEF*TINF*DXI ) / 
(HCOEF*DXI+2.0*COND(NI+3,J,K)) 


QSCONE=QSCONE+QCONW 
QSRADE=QSRADE+QRADE 


80 CONTINUE 


C *** CALCULATE THE ENERGY LOST THROUGH (OR CONSUMED BY) 


C 1)e THE CAVITY “WALLS; 2) CAVITY “Aik SDuctr 
C *** TANK AIR 

WERR=0. 

WAIR=0. 


DO 25 I=3,NI+2 
DO 25 J=3,NJ+2 
DO 25 K=3,NK+2 


IFCNODCE, JAK) BO. 1) -SGOsl0gZ. 
DXI=DXXC(T) 
DYJ=DYYC(J) 
DZK=DZZC(K ) 


C wee CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 


DXP1=DXXC(I+1) 
DXI =DXXC(1) 
DXM1=DXXC(I-1) 


DYBI=DYYC CIe I) 
DYJ =DYYC(J) 
DYM TDN Ca) 


DZP1=DZZC(K+1) 
DZK =DZZC(K) 
DZM1=DZZC(K-1) 


C *** SURFACE LENGTH OF THE CONTROL VOLUME 


DXN=DXXC( I) 
DXS=DXXC(T) 
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DXF=DXXC(1) 
DXB=DXXC(1) 


DYF=DYYC(J) 
DYB=DYYC(J) 
DYE=Diyec)) 
DYW=DYYC(J) 


DZE=DZZC(K) 
DZW=DZZC(K) 
DZN=DZZC(K) 
DZS=DZZC(K) 


C ws DEFINE AREA OF THE CONTROL VOLUME 
DXYF=DXF*DYF 
DXYB=DXB*DYB 
DY ZE=DYEEDZE 
DYZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 


VOL=DX1I*DYJ*DZK 
VOLDT=VOL/DTIME 


RN=(R(1,J,K)*DYP1+R(1I,J+1,K)*DYJ) /(DYP1+DYJ) 
RS=(R(1,J,K)*DYM1+R(1,J-1,K)*DYJ)/(DYM1+DYJ) 
RE=(R(1,J,K)*DXP1+R(I+1,J,K)*DXI)/(DXP1+DX1) 
RW=(R(1,J,K)*DXM1+R(1I-1,J,K)*DXI)/(DXM1+DX1) 
RF=(R(1,J,K)*DZP1+R(1,J,K+1)*DZK)/(DZP1+DZK) 
RB=(R(1,J,K)*DZM1+R(1,J,K-1)*DZK) /(DZM1+DZK) 


CN=RN*V(I,J+1,K)*DZXN 
CS=RS*V(I,J  ,K)*DZXS 
CE=RE*U(I+1,J,K)*DYZE 
CW=RW*U(I  ,J,K)*DYZW 
CF=RF*W(1,J,K+1)*DXYF 
CB=RB*W(1,J,K )*DXYB 


WERR=WERR+T(1,J,K)*CPM(1,J,K)*SMP(1,J,K) 
WRES=WRES+SMP(I ,J,K) 
WAIR=WAIR+(T(1,J,K)*R(1,J,K)-TOD(1,J,K)*ROD(I,J,K))* 
& CPM(1,J,K)*VOLDT 
25 CONTINUE 


C *** SUM UP THE TOTAL WALT AT THAT TIME STEP (DIMENSIONLESS) 
WINS=QQQ/H**3 

C *%* SUM UP THE TOTAL WALT LOST TO THE WALLS 
QTCON=QSCONF+QSCONB+QSCONS+QSCONN+QSCONW+QSCONE 
QTRAD=QSRADF+QSRADB+QSRADS+QSRADN+OSRADW+QSRADE 
WWAL=QTCON+QTRAD 


C *** EQUIVALENT INTERNAL HEAT SOURCE DUE TO RADIATION 
QR=QTRAD*U0*CPO*RHOO*TA*H**2 


C *** TOTAL WALT EXHAUSTED THROUGH THE DUCT 


OA 


IF NMS. EQ .0)) Thin 


WWFAN=O . 0 
ELSE 
WWFAN=8000.*CPM(12,3,12)*(T(12,3,12)-1.0)*R(12,3,12)/ 
& (60 .*H**2*U0) 
ENDIF 


C *#** THE ENERGY CALCULATION 
QSIN=QSIN+WINS*DTIME 
QSWER=QSWER+WERR*DTIME 
QSWAL=QSWAL+WWAL*DT IME 
QSAIR=QSAIR+WAIR*DTIME 
QSFAN=QSFAN+WWFAN*DT IME 


RETURN 
END 
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SUBROUTINE CALU 
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*CALCULATES THE U COMPONENT OF THE VELOCITY 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON /R4/XC(40) ,YC(40) , ZC(40) ,XS(40) ,YS(40) ,ZS(40) ,DXXC(40), 

& DYYC(40) ,DZZC( 40) ,DXXS(40) ,DYYS(40) ,DZZS(40) 

COMMON/BL1/DX , DY ,DZ,DTIME,TCOOL, PI ,Q,QR 

COMMON /BL7/NI,NJ,NK,KRUN,NBLOR , NWRP 

COMMON/BL20/S1IG11(25,25,15) ,$1G12(25,25,15) ,SIG22(25, 25,15), 
SIG13(25,25,15) ,S1G23(25,25,15) ,SI1G33(25,25,15) 

COMMON /BL22/CPS(20) ,CONS(20) ,WFAN(20) ,NCHIP, ICHPB( 20) ,NCHPI(20), 
JCHPB( 20) ,NCHPJ(20) ,KCHPB( 20) ,NCHPK( 20) 

COMMON /BL31/TOD(25,25,15) ,ROD(25,25,15),POD(25,25,15), 
COD(25,25,15),U0D(25,25,15) ,VOD(25,25,15), 
WOD(25,25,15) 

COMMON /BL32/T(25,25,15),R(25,25,15),P(25,25,15) ,C(25, 25,15), 
U(25,25,15),V(25,25,15),W(25,25,15) 

COMMON /BL33/TPD(25,25,15),RPD(25, 25,15), PPD(25,25,15), 
CPD(25,25,15),UPD(25,25,15),VPD(25,25,15), 
WPD(25,25,15) 

COMMON /BL34/HEIGHT(25,25,15),REQ(25,25,15),SMP(25,25,15), 
SMPP(25,25,15),PP(25,25,15),DU(25,25,15), 
DV(25,25,15),DW(25,25, 15) 

COMMON/BL36/AP(25,25,15) ,AE(25,25,15) ,AW(25,25,15),AN(25,25,15), 
AS(25,25,15),AF(25,25,15),AB(25, 25,15) ,SP(25, 25,15), 
SU(25,25,15),RI(25,25,15) 

COMMON /BL37/VIS(25,25,15),COND(25,25,15),RESORM(40), 
CPM(25,25,15),NHSZ(3,2),NOD(25,25,15) 


Pe Oe Pm OR & Ro — ~ mo 


C *%* CALCULATE COEFFICIENTS 
DO 100 K=2,NK+3 
DO 100 J=2,NJ+3 
DO 100 I=3,NI+3 


C *** CENTRAL LENGTH OF THE U CONTROL VOLUME 
DXP1=DXXS(I+1) 


DXI =DXxS(1) 
DXM1=DXXS(I-1) 


DYP1=DYYC(J+1) 
DYJ Dy Cus) 
DYM1=DYYC(J-1) 


DZP1=DZZC(K+1) 
DZK =DZZC(K) 
DZM1=DZZC(K-1) 


C *** SURFACE LENGTH OF THE CONTROL VOLUME 
DXN=DXXS( I) 
DXS=DXXS(T) 
DXF=DXXS(1) 
DXB=DXXS(I) 


DYF=DYYC(J) 
DYB=DYYC(J) 
DYE-DyYCCI) 
DYW=DYYC(J) 


DZE=DZZC(K) 
DZW=DZZC(K) 
DZN=DZZC(K ) 
DZS=DZZC(K) 


C *** CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR U 
DXEE=DXXC(I+1) 
DXE =DXXC(I) 
DXW =DXXC(I-1) 
DXWW=DXXC(I-2) 


DYNN=DYYS(J+2) 
DYN 2=DV SCI +1} 
DYS —DiisC) >} 

DY¥ss=DYYS(J-1) 


DZFF=DZZS(K+2) 
DZF =DZZS(K+1) 
DZB =DZZS(K) 

DZBB=DZZS(K-1) 


tee DEFINE THE AKEA OF THE CONTROL VOLUME 
DXYF=DXF*DYF 
DXYB=DXB*DYB 
DY ZE=DYE*DZE 
DY ZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 


VOL=DX I*DYJ*DZK 
VOLDT=VOL/DTIME 


ZXOYN=DZXN /DYN 
ZXOYS=DZXS/DYS 
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XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
Y ZOXE=DYZE/DXE 
Y ZOXW=DYZW/DXW 


C %** USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 

C PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 
GNE=SILIN(R(I. ,J+1,K),R(I  ,J,K),DYP1,DYJ)*V(I  ,J+1,K) 
GNW=SILIN(R(I-1,J+1,K),R(I-1,J,K),DYP1,DYJ)*V(I-1,J+1,K) 
GSE=SILIN(R(I ,J-1,K),R(I ,J,K),DYM1,DYJ)*V(I ,J_ ,K) 
GSW=SILIN(R(I-1,J-1,K),R(1-1,J,K),DYM1,DYJ)*V(I-1,J  ,K) 


GE =SILIN(R(I+1,J,K),R(I ,J,K),DXEE,DXE)*U(I+1,J,K) 
GP =SILIN(R(I-1,J,K),R(I ,J,K),DXW ,DXE)*U(I  ,J,K) 
GW =SILIN(R(I-2,J,K),R(I-1,J,K),DXWW,DXW)*U(I-1,J,K) 


GFE=SILIN(R(I ,J,Kt+1),R(1I ,J,K),DZP1,DZK)*W(I  ,J,K+1) 
GFW=SILIN(R(I-1,J,Kt1),R(I-1,J,K) ,DZP1,DZK)*W(I-1,J,K+1) 
GBE=SILIN(R(I ,J,K-1),R(I ,J,K),DZM1,DZK)=W(1 ,J.Kom 
GBW=SILIN(R(I-1,J,K-1),R(I-1,J,K),DZM1,DZK)*W(I-1,J,K_ ) 


C *** MASS FLOW RATE 
CE=0 .5*(GE+GP)*DY ZE 
CW=0 .5*(GP+GW )*“DYZW 


CN=SILIN(GNE ,GNW , DXE, DXW)*DZXN 
CS=SILIN(GSE ,GSW , DXE , DXW)*DZXS 


CF=SILIN(GFE,GFW , DXE, DXW)*DXYF 
CB=SILIN(GBE,GBW,DXE, DXW)*DXYB 


C #** VISCOSITY 
VISE =V Glare ke) 
VISW=VIS(I-1,J,K) 


VISN=(VIS(1I,J+1,K)+VIS(1,J,K)+VISC1-1,J3+1,K)4VIS(1-1,3 0p eae 
VISS=(VISCI,J-1,K)+VIS(1,J,K)+VISCI-1,J-1,K)+VIS( 1-1 Gee 


VISF=(VIS(I,J,K+1)+VIS(1I,J,K)+VIS(I-1,J,K+1)+VIS(I-1,J3,K))/4.0 
VISB=(VIS(1,J,K-1)+VIS(1,J,K)+VIS(1I-1,J,K-1)+VIS(I-1,J3,K))/4.0 


VISN1=ZXOYN*VISN 
VISS1=ZxXOYS*VISS 
VISE1=YZOXE*VISE 
VISW1=YZOXW*VISW 
VISF1=XYOZF*VISF 
VISB1=XYOZB*VISB 


C #** QUICK SCHEME 
CEP=(ABS(CE)+CE)*DXE/(DXI *16.) 
CEM=(ABS(CE )-CE)*DXE/(DXP1*16. ) 
CWP=(ABS(CW)+CW)*DXW/(DXM1*16. ) 
CWM=(ABS(CW)-CW)*DXW/(DXI *16.) 


CNP=(ABS(CN)+CN)*DYP1*DYJ/(8.*DYN*(DYN+DYS_ )) 
CNM=(ABS(CN )-CN)*DYP1*DYJ/(8 .*DYN*(DYN+DYNN ) ) 
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Cor—-taboces 46S )-DyMl-pYJ/(S.*DYS*>(DYS+DYSS) ) 
CSM=(ABS(CS)-CS)*DYM1*DYJ/(8.*DYS*(DYS+DYN )) 


CFP=(ABS(CF)+CF)*DZP1*DZK/(8.*DZF*(DZF+DZB )) 
CFM=( ABS(CF)-CF)*DZP1*DZK /(8.*DZF*(DZF+DZFF ) ) 
CBP=(ABS(CB)+CB)*DZM1*DZK/(8.*DZB*(DZB+DZBB) ) 
CBM=(ABS(CB)-CB)*DZM1*DZK/(8.*DZB*(DZB+DZF )) 


AE(I,J,K)= -.5*CE +CWM*DXW /DXE+CEP+CEM*(1.+DXE/DXEE)+VISE1 
AW(I,J,K)= .5*CW +CEP*DXE /DXW+CWM+CWP*(1.+DXW/DXWW)+VISW1 
AN(I,J,K)=(- .5*CN*DYJ+CSM*DYS ) /DYN+CNP+CNM*(1.+DYN/DYNN)+VISN1 
AS(I,J,KJ=C( .5*CS*DYJ+CNP*=DYN ) /DYS+CSM+CSP*(1.+DYS/DYSS)+VISS1 
AF(I,J,K)=(- . 5*CF*DZK+CBM*DZB ) /DZF+CFP+CFM*(1.+DZF/DZFF)+VISF1 
AB(I,J,K)=( .5*CB*DZK+CFP*DZF ) /DZB+CBM+CBP*(1.+DZB/DZBB)+VISB1 


C *#** BOUNDARY CONSIDERATION 
(Ce NiO ein 
AEE=-CEM*DXE/DXEE 
AEER=AEE*UPD(I+2 ,J,K) 
ELSE 
AEE=0. 
AEER=0. 
ENDIF 


Ee GleG1.3 sien 
AWW=-CWP*DXW /DXWW 
AWWR=AWW*UPD(1I-2,J,K) 

ELSE 
AWW=0. 

AWWR=0 . 

ENDIF 


ees SNe THEN 7 : 
ANN=-CNM*DYN/DYNN 
ANNR=ANN*UPD(CI ,J+2,K) 
ELSE 
ANN=0. 
ANNR=0. 
ENDIF 


ieee GT 222) THEN 
ASS=-CSP*DYS/DYSS 
ASSR=ASS*UPD(I,J-2,K) 
ELSE 
ASS=0. 
ASSR=0. 
ENDIF 


IF (K.LT.NK+3) THEN 
AFF=-CFM*DZF /DZFF 
AFFR=AFF*UPD(I ,J ,K+2) 

ELSE 
AFF=0. 

AFFR=0. 

ENDIF 


IF (K.GT.2) THEN 
ABB=-CBP*DZB/DZBB 
ABBR=ABB*UPD(I,J,K-2) 

ELSE 
ABB=0. 

ABBR=0. 

ENDIF 


C *** MODIFICATION FOR DECK BOUNDARIES 


C x SU 


C xe SU 


IF (NOD(I-2,J,K).NE.0) THEN 
AWW=0.0 
AWWR=0 .0 

ENDIF 


IF (NODG@I41 IK) NE =O) THEN 
AEE=0.0 
AEER=0.0 

ENDIF 


IF (NOD(I,J-1,K).NE.0) THEN 
ASS=0.0 
ASSR=0.0 

ENDIF 


IF (NOD(I,J+1,K).NE.0) THEN 
ANN=0.0 
ANNR=0.0 

ENDIF 


IF (NOD(I,J,K-1).NE.0) THEN 
ABB=0.0 
ABBR=0.0 

ENDIF 


IF (NOD(I,J,K+1).NE.0) THEN 
AFF=0.0 
AFFR=0.0 

ENDIF 


FROM NORMAL STRESS 
RE=(SIGI1(1 ,J,K)-(U(1+1,J,K)-U(1 ,J,K))+VISE/DXE)=Dy 2s 
RW=(SIG11(I-1,J,K)-(U(I  ,J,K)-U(I-1,J,K))*VISW/DXW)*DYZW 


RN=(S1IG12(1 ,J+1,K)-(U(I,J+1,K)-U(I,J ,K))*VISN/DYN)*DZXN 
RS=(SIG12(1,J_ ,K)-(U(I,J  ,K)-U(I,J-1,K))*VISS/DYS)*DZXS 


RF=(SIG13(1,J ,K+1)-(U(I,J,K+1)-U(1,J,K ))*VISF/DZF)*DXYF 
RB=(SIG13(1,J,K )-(U(I,J,K )-U(I,J,K-1))*VISB/DZB)*DXYB 


FROM CURVED STRESSES AND ACCELERATIONS 
AVG12=0.5*(SIG12(I,J+1,K )+S1G12(1,J,K)) 
AVG13=0.57(SIGIS¢C1.J  KelysiGisch7 


AVG22=SILINCSIG22( 1.) -k SIG 220 Dead soem 
AVG33=SILIN(SIG33(1,J,K),S1G33¢ I>. J,K)Dxe DxW) 
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& 
& 
100 


& whe whe ole 
ey euet 


G whee eter ole 
eu eu ek 


500 


C whe mle ate 
evevey 


Doz 


600 


C whe whe ake 
av av ey 


AU1=U(1,J,K) 
AU2=BILIN(V( 
V( 
AU3=BILIN(W( 
WC 


AR=SILIN(R(C1 


oe ere Cem K) DN) 01d = 
I-1,J+1,K),V(I-1,J,K),DYJ,DYJ , DXE,DXW) 
i .J.Kel) wel .J.K) DZK, DzK. 
I-1,J,K+1),W(I-1,J,K),DZK,DZK ,DXE , DXW) 


Pink) sh bes Ks DX DX WwW) 


ARU12=AR*AU1*AU2 
ARU13=AR*AU1*AU3 
ARU22=AR*AU2*AU2 
ARU33=AR*AU3*AU3 


RRY=( AVG 12-ARU12)*DZK*(DXN-DXS ) 
RRZ=( AVG 13~-ARU13)*DYJ*( DXF-DXB) 
RRX=( AVG22-ARU22 )*DZK* (DYE-DYW )+( AVG33-ARU33 )*DYJ*( DZE-DZwW ) 


AP(I,J,K)=AE 
AB 


Gi Oo atAW Cl ek) SANG. J, KAS Ci. SK jrAPCI oJ Kot 
(1,J,K)+AEE+AWW+ANN+ASS+AFF+ABB 


SRG roe NODC Ik) Daw ROD Cl ekoe DAE) VOLDT/(CDAWTDXE) 

SUC ea = orGledan) VODU IJK) aby DAK (PC lle), K)=PC1,J,K))+ 
AEER+AWWRt+ANNR+ASSRt+AFFRtABBRt+RE-RWt+RN-RS+RF-RB+RRY+ 
RRZ-RRX 


CONTINUE 


TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 


Y DIRECTION 
DO 500 K=2,NK+3 
DO 500 I=3,NI+3 
SP(I,2._,K) 
SP(I ,NJ+3,K) 
AN(I,NJ+3,K) 
oi ek) 
CONTINUE 


X DIRECTION 
DO 502 K=2,NK+3 
DO 502 J=2,NJ+3 
AGG § Jak) 
AE(NI+3,J,K) 
CONTINUE 


* Z DIRECTION 


DO 600 I=3,NI+3 
DO 600 J=2,NJ+3 
SPC. 200% 
SP(I,J,NK+3) 


AF(I,J,NK+3) 
ABC 32°) 
CONTINUE 


=SP(I,2. ,K)-AS(I,2 ~~ ,K) 
=SP(I ,NJ+3,K)-AN(I,NJ+3,K) 
=0. 
=0. 


=0.0 
=0.0 


=SP(I1,J,2  )-AB(I,J,2 ) 
=SP(1,J,NK+3)-AF(1,J,NK+3) 
=0. 
=0. 


MODIFICATION FOR DECK BOUNDARIES 


IF (NCHIP.EQ.0) 
DO 101 N=1,NCHI 


GOTO 201 
P 


IB =ICHPB(N) 


ou 


102 


103 


106 


[E ~=1B+NCHEICN) = 1 
JB =JCHPB(N) 
JES =JBGNGHEICN j= 1 
KB =KCHPB(N) 
KE =KB+NCHPK(N)-1 


DO 102 J=JB,JE-1 

DO 102 K=KB,KE-1 
AE(IB-1,J,K)=0.0 
AW(IE+1,J,K)=0.0 

CONTINUE 


DOO Set Bean 

DO 103 K=KB,KE-1 
SP(I,JB-1,K)=SP(I,JB-1,K)-AN(I,JB-1,K) 
AN(I,JB-1,K)=0.0 
SP(I,JE ,K)=SP(I,JE ,K)-AS(I,JE_ ,K) 
AS(I,JE ,K)=0.0 

CONTINUE 


DO 106 I=IB,IE 

DO 106 J=JB,JE-1 
SP(I,J,KB-1)=SP(I,J,KB-1)-AF(I,J,KB-1) 
AF(I,J,KB-1)=0.0 
SP(I,J,KE )=SP(I,J,KE )-AB(I,J,KE ) 
AB(I,J,KE )=0.0 

CONTINUE 


C «**~ FOR THE CELLS INSIUE SOF TES DECKS 


104 
101 


@ anes ahs ate 
iwiwts 


201 


301 


Cc ote ote ate 
eu eu ee 


DO 104 I=IB,IE 

DO 104 J=JB,JE-1 

DO 104 K=KB,KE-1 
SP(I,J,K)=-1.0E2 
AW(1,J,K)=0. 
AE(I,J,K)=0. 
AS(I,J,K)=0. 
AN(I,J,K)=0. 
AB(I,J,K)=0. 
AF(1I,J,K)=0. 
SU(I,J,K)=0. 

CONTINUE 

CONTINUE 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
DO 301 K=2,NK+3 
DO 301 J=2,NJ+3 
DO 301 I=3,NI+3 
DAES LOD) 
DZK=DZZC(K) 
DYZ=DYJ*DZK 
AP(I,J,K)=AP(1I,J,K)-SP(1I,J,K) 
DU(I,J,K)=DYZ/AP(I,J,K) 
CONTINUE 


SOLVE FOR U 
CALL TRID (4,3,3,NI+2,NJ+2,NK+2,U) 
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C *%* RESET THE VELOCITY INSIDE OF DECK 
Ih CCQNGHIPSEO. 0) GOTO 111 
DO 110 N=1,NCHIP 
IB=ICHPB(N) 
IE=IB+NCHPI(N)-1 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 
HO.10e 1-18 16 
DO 108 J=JB,JE-1 
DO 108 K=KB,KE-1 
UCI ,J,K)=0.0 
108 CONTINUE 
110 CONTINUE 


i REEGRN 
END 
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SUBROUTINE CALV 


whe whe whe whe whe mhembe ate ml mle ate ake ahe ahs ale ate ake ahr whe alin whe ler ahe akin alan wher hie hie Ian mk wf wl ae lie whe whe elie Lae mela mala Lae elie Lie ela Lae ohne mata maka eahee mPa Lan Lee mL Sco mada male fan whee eli hin Fen Law hen hen men ma fee ken mie mfr his mbar malar whew 
ON ER EYED ER EL EE AL AR ER ED GH ED AR ED ED GN EV ED AE ERED AL ER EN AE AY EY AN EN AN EN EH ED EN EN AN ER ER EL EN EM ED EN EL GR EL EN EL ERED EL GN EUAN ER ER ED GLEN GLEN EL EN EL EV ED GEER EVEN CR 


=CALCULATES THE V COMPONENT OF THE VELOCITY 


IMPLICIT DOUBLE PRECISION (A-H,O-Z) 
COMMON /R4/XC(40) , YC(40) ,ZC(40) ,XS(40) ,YS(40) ,ZS(40) , DXXC(40), 
S DYYC(40) ,DZZC(40) ,DXXS(40) ,DYYS(40) , DZZS(40) 
COMMON /BL1/DX ,DY,DZ,DTIME,TCOOL,PI,Q,QR 
COMMON /BL7/NI,NJ,NK,KRUN ,NBLOR,NWRP 
COMMON BE207 S1G11¢ 25-25-15). S51G19(25125.15),,S1G22( 25 , 25,15), 
SURG Say Seals GIG 2325-0 secio eolies e005 25 15) 
COMMON /BL22/CPS(20) ,CONS(20) ,WFAN( 20) ,NCHIP, ICHPB( 20) ,NCHPI(20), 
JCHPB( 20) ,NCHPJ( 20) ,KCHPB( 20) ,NCHPK(20) 
COMMON /BL31/TOD(25,25,15),ROD(25,25,15),POD(25,25,15), 
GOB 5.25 015) U0D( 25.25.15), VOn(25. 25-15). 
WOD( 25 ,25,15) 
COMMON) BLS2/m(25 25.15) R(25.25.15),P(25.25-15),0025,25,15), 
U(25,25,15),V(25,25,15),W(25,25,15) 
COMMON/BL33/TPD(25,25,15) ,RPD(25,25,15),PPD(25,25,15), 
CPD(25,25,15),UPD(25,25,15),VPD(25,25,15), 
WPD(25,25,15) 
COMMON/BL34/HEIGHT(25 25,15) ,REQ(25,25,15),SMP(25,25,15), 
SHPR@2s. 25. 1S)ePP(25,25.15),DUC25,25, 15), 
DV(25,25,15),DW(25,25,15) 
COMMON /BL36/AP(25,25,15),AE(25,25,15),AW(25,25,15),AN(25,25,15), 
S AS(25,25,15),AF(25,25,15) ,AB(25,25,15),SP(25,25,15), 
& SU(25,25,15),R1(25, 25,15) 
COMMON/BL37/V1S(25,25,15),COND(25,25,15),RESORM(40), 
& CPM(25,25,15),NHSZ(3,2) ,NOD(25,25,15) 


Q7& — QR & — — 


Q& 


C *#* CALCULATE COEFFICIENTS 
DO 100 K=2,NK+3 
DO 100 J=3,NJ+3 
DO 100 I=2,NI+3 


99 


C *«** CENTRAL LENGTH OF THE V CONTROL VOLUME 
DXP1=DXXC(I+1) 
DXI =DXXC(I) 
DXM1=DXXC(I-1) 


DYP1=DYYS(J+1) 
DYJ =DYyYSCs) 
DYMI-Dyy¥SCJ>1) 


DZP1=DZZC(K+#1) 
DZK =DZZC(K) 
DZM1=DZZC(K-1) 


C *** SURFACE LENGTH OF THE CONTROL VOLUME 
DXN=DXXC( I) 
DXS=DXXC(1) 
DXF=DXXC( 1) 
DXB=DXXC( I) 


DYF=DYYS(J) 
DYB=DYYS(J) 
DYE=DYYS(J) 
DYW=DYYS(J) 


DZE=DZZC(K ) 
DZW=DZZC(K) 
DZN=DZZC(K ) 
DZS=DZZC(K ) 


C *** CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR V 
DXEE=DXXS(I+2) 
DXE =DXXS(1I+1) 
DXW =DXXS(1) 
DXWW=DXXS( 1-1) 


DYNN=DYYC(J+1) 
DYN =DYYC(J) 

DYS =DYYOCJ> 1) 
DYSS=DYYC(J-2) 


DZFF=DZZC(K+2) 
DZF =DZZC(K+1) 
DZB =DZZC(K) 

DZBB=DZZC(K-1) 


C *#** DERINE THE AREA OF THE CONTROL, VOLUME 
DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DY ZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DxXS 


VOL =DXI*DYJ*DZK 
VOLDT=VOL/DTIME 


100 


ZXOYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DY ZW /DXW 


C ** USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 

6 PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 
GEN=SILIN(R(I+1,J ,K),R(I,J  ,K),DXP1,DXI)*U(I+1,J_ ,K) 
GES=SILIN(R(I+1,J-1,K),R(1,J-1,K),DXP1,DXI)*U(I+1,J-1,K) 
GWN=SILIN(R(I-1,J. ,K),RC(I,J. ,K),DXM1,DXI)*U(I ,J_ ,K) 
GWS=SILIN(R(I-1,J-1,K),R(1,J-1,K),DXM1,DXI)*U(I  ,J-1,K) 


GN =SILIN(R(I,J+1,K),R(I,J  ,K),DYNN,DYN)*V(1,J+1,K) 
GP =SILIN(R(I,J-1,K),R(1,J  ,K),DYS ,DYN)*V(I,J_ ,K) 
Gop siINGR GC) . J=2.K) RC, dist), DYSS. Dis cv 1, J-1).K) 


GFN=SILIN(R(I1,J  ,K+1),R(I1,J ,K),DZP1,DZK)*W(I,J  ,Kt+1) 
GFS=SILIN(R(I,J-1,K+1) ,R(1,J-1,K) ,DZP1,DZK)*W(I,J-1,K+1) 
GBN=SILIN(R(I,J_ ,K-1),R(I,J  ,K),DZM1,DZ2K)*W(I1,J  ,K ) 
GBS=SILIN(R(1,J-1,K-1),R(1,J-1,K),DZM1,DZK)*W(1,J-1,K_ ) 


C «** MASS FLOW RATE 
CN=0 .5*(GN+GP )*DZXN 
CS=0 .5*(GP+GS )*DZXS 
CE=SILIN(GEN ,GES, DYN ,DYS)*DYZE 
CW=SILIN(GWN ,GWS,DYN ,DYS)*DYZW 
CF=SILIN(GFN,GFS,DYN ,DYS)*DXYF 
CB=SILIN(GBN ,GBS,DYN, DYS)*DXYB 


C *** VISCOSITY : 
VISN= VIS(I,J_ ,K) 
VISS= VIS(I,J-1,K) 
VISE=(VIS(I+1,J,K)+VIS(1,J,K)+VIS(I+1,J-1,K)+VIS(I ,J-1,K)) 
VISW=(VIS(I-1,J,K)+VIS(I,J,K)+VIS(I-1,J-1,K)+VIS(I,J-1,K)) 
VISF=(VIS(1,J,K+1)+VIS(I,J,K)+VIS(I,J-1,K+1)+VIS(I,J-1,K)) 
VISB=(VIS(1,J,K-1)+VIS(I,J,K)+VIS(1,J-1,K-1)+VIS(I,J-1,K)) 


VISN1=ZXOYN*VISN 
VISS1=ZXOYS*VISS 
VISE1=YZOXE*VISE 
VISW1=YZOXW*VISW 
VISFI=XYOZF*VISF 
VISB1=XYOZB*VISB 


C *** QUICK SCHEME 
CEP=(ABS(CE)+CE)*DXP1*DXI/(DXE*(DXE+DXW )*8.) 
CEM=(ABS(CE)-CE)*DXP1*DXI/(DXE*(DXE+DXEE)*8. ) 
CWP=(ABS(CW)+CW )*DXM1*DXI /(DXW*(DXW+DXWW)*8. ) 
CWM=(ABS(CW)-CW)*DXM1*DXI/(DXW*(DXW+DXE )*8.) 


CNP=(ABS(CN)+CN)*DYN/CDYJ *16.) 


CNM=(ABS(CN)-CN)*DYN/(DYP1*16. ) - 
CSP=(ABS(CS)+CS)*DYS/(DYM1*16. ) 


101] 


CSM=(ABS(CS)-CS)*DYS/(DYJ *16.) 


CFP=(ABS(CF)+CF)*DZP1*DZK/(DZF*(DZF+DZB )*8. ) 
CFM=(ABS(CF)-CF)*DZP1*DZK/(DZF*(DZF+DZFF)*8. ) 
CBP=(ABS(CB)+CB)*DZM1*DZK/(DZB*(DZB+DZBB)*8. ) 
CBM=(ABS(CB)-CB)*DZM1*DZK/(DZB*(DZB+DZF )*8.) 


AE(I,J,K)=(- . 5*CE*DX I+CWM*DXW ) /DXE+CEP+CEM*(1.+DXE/DXEE)+VISE1 
AW(I,J,K)=( .5*CW*DXI+CEP*DXE) /DXW+CWM+CWP*(1.+DXW/DXWW)+VISW1 
AN(I,J,K)= -.5*CN +CSM*DYS /DYN+CNP+CNM*(1.+DYN/DYNN )+VISN1 
ASCII = eee +CNP*DYN /DYS+CSM+CSP*(1.+DYS/DYSS)+VISS1 


AF(I,J,K)=(- .5*CF*DZK+CBM*DZB) /DZF+CFP+CFM*(1.+DZF/DZFF)+VISF1 
AB(I,J,K)=( .5*CB*DZK+CFP*DZF) /DZB+CBM+CBP*(1.+DZB/DZBB)+VISB1 


C *** BOUNDARY CONSIDERATION 

IF (I.LT.NI+3) THEN 
AEE=-CEM*DXE/DXEE 
AEER=AEE*VPD(I+2,J,K) 

ELSE 
AEE=0. 
AEER=0. 

ENDIF 


if (CC 2) ene 
AWW=-CWP*DXW / DXWW 
AWWR=AWW*VPD(I-2,J,K) 
ELSE 
AWW=0. 
AWWR=0. 
ENDIF 


IF (J.LT.NJ+3) THEN 
ANN=-CNM*DYN/DYNN 
ANNR=ANN*VPD(I ,J+2,K) 

ELSE 
ANN=0. 

ANNR=0. 

ENDIF 


IF (J.GT.3) THEN 
ASS=-CSP*DYS/DYSS 
ASSR=ASS*VPD(I,J-2,K) 

ELSE 
ASS=0. 

ASSR=0. 

ENDIF 


IPR LI Nha) aHEN 


AFF=-CFM*DZF/DZFF 
AFFR=AFF*VPD(I,J,K+2) 


TECK GT 22 SHEN 


ABB=-CBP*DZB/DZBB 
ABBR=ABB*VPD(1,J,K-2) 
ELSE 
ABB=0. 
ABBR=0. 
ENDIF 


C «** MODIFICATION FOR DECK BOUNDARIES 
PCN CR Gis TK eNE Oe THEN 
AWW=0 .0 
AWWR=0 . 0 
ENDIF 


IF (NOD(I+1,J,K).NE.0) THEN 
AEE=0.0 
AEER=0 .0 

ENDIF 


Le TCNODGiIed = 2, K)sNb. 0) THEN 
ASS=0.0 
ASSR=0 .0 

ENDIF 


LE CONODGIAI+1 kK) NE. 0 }STHEN 
ANN=0 . 0 
ANNR=0.0 

ENDIF 


IF eCNOD CII R- )) NE 20): THEN 
ABB=0 .0 
ABBR=0.0 

ENDIF 


TE VGVeveiew Ki) bO. 0) THEN 
AFF=0.0 
AFFR=0.0 

ENDIF 


C **%* SU FROM NORMAL STRESS 
RN=(SIG22(I,J_ _,K)-(V(1I,J+1,K)-V(I,J 
RS=(SIG22(1,J-1,K)-(V(1,J  ,K)-V(I,J-1 
RE=(SIG12(I+1,J,K)-(V(I+1,J,K)-V(I ,J 
RW=CSHemzar JK )-CV(l. 43K) =ViC lado 
RF=(SIG23(1,J,K+1)-(V(1,J,K+1)-V(1I,J,K 
RE=(SIG2sClI kK )-(VCliI.K 7 )-VCld.K 


C *%* SU FROM CURVED STRESSES AND ACCELERATIONS 
AVGI2= 0.5*(SIG12(T+1,J,.K )+S1G12(1,J 
AVG23= 0.5*(SIG23(I  ,J,Kt1)+SIG23(I,J 
MCMe=stLINGSIGIICI “J .K ).siGlicr. J 
AVG33=SILIN(SIG33(I ,J,K ),SIG33(1,J 


AU2=V(I,J,K) 


,K) )*VISN/DYN)*DZXN 
,K) )*VISS/DYS)*DZXS 
.K) )*VISE/DXE)*DYZE 
,K) )*VISW/DXW)*DYZW 

) }*VISF /DZF)*DXYF 


-1))*VISB/DZB)*DXYB 


»K)) 
»K)) 


-1,K),DYN,DYS) 
-1,K),DYN,DYS) 


AUI=BILIN(U(I+1,J ,K ),UCI,J_ ,K),DXI,DXI, 
& U(I+1,J-1,K ),U(1,J-1,K) ,DXI,DXI,DYN,DYS) 
AUZ3=BILIN(W(I ,J  ,K+1),WC(I,J  ,K),DZ2K,D2K, 
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& W(I ,J-1,K+1),W(1I,J-1,K) ,DZK,DZK , DYN, DYS) 
AR=SILIN(R(1I,J,K),R(1,J-1,K) ,DYN,DYS) 


ARU12=AR*AU 1*AU2 
ARU23=AR*AU2*AU3 
ARU11=AR*AU1*AU1 
ARU33=AR*AU3*AU3 


RRX=(AVG12-ARU12)*DZK* ( DYE-DYW) 
RRZ=(AVG23-ARU23)*DXI*( DYF-DYB) 
RRY=(AVG11-ARU11)*DZK*( DXN-DXS )+( AVG33-ARU33)*DXI*(DZN-DZS ) 


AP(I,J,K)=AE(I,J,K)+AW(1,J,K)+AN(I,J,K)+AS(I,J,K)+ 
& AF(1,J,K)+AB(1,J ,K)+AEEtAWW+tANN+ASS+AFF+ABB 
SP(I,J,K)=-(ROD(I,J,K)*DYS+ROD(I ,J-1,K)*DYN)*VOLDT/(DYS+DYN) 
SU(I,J,K)=-SP(1I,J,K)*VOD(I ,J,K)+DZK*DXI*(P(I,J-1,K)-P(1,J,K))+ 
iS AEER+AWWR+tANNR+ASSR+AFFR+ABBRtRE-RW+RN-RS+RF-RB+RRX+ 
& RRZ-RRY 
100 CONTINUE 


“wee TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 


“wx Y DIRECTION 
DO 500 K=2,NKt3 
DO: 500 °1=2 N13 
ASCLSS »K)=0. 
ANGI NI tS (K=O: 
50C CONTINUE 


wk X DIRECTION 
DO 502 K=2,NK+3 
DO 502 J=3,NJ+3 
SP(2 Ji, K)=SP(2)) ek) - AWC 2 
SP(NI+3,J,K)=SP(NI+3,J,K)-AE(NI+3,J,K) 
AW ue KO =00 
AE(NI+3,J,K)=0.0 
502 CONTINUE 


wx Z DIRECTION 
DO 600 I=2,NI+3 
DO 600 J=3,NJ+3 
SP(I.J.2 )=SP(1.4.2 0" AR Cie 
SP(I,J,NK+3)=SP(I,J,NK+3)-AF(1,J,NK+3) 
AF(I,J,NK+3)=0. 
AB(1,J,2 )=0. 
600 CONTINUE 


**% MODIFICATION FOR DECK BOUNDARIES 
IF (NCHIP.EQ.0) GOTO 201 
DO 101 N=1,NCHIP 
IB =ICHPB(N) 
IE =IB+NCHPI(N)-1 
JB =JCHPB(N) 
JE =JB+NCHPJ(N)-1 
KB =KCHPB(N) 
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102 


TOES: 
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KE =KB+NCHPK(N)-1 

DO 102 J=JB,JE 

DO 102 K=KB,KE-1 
SP(IB-1,J,K)=SP(IB-1,J,K)-AE(IB-1,J,K) 
AE(IB-1,J,K)=0.0 
SP(IE ,J,K)=SP(IE ,J,K)-AW(IE ,J,K) 
AW(IE ,J,K)=0.0 

CONTINUE 


Ports 1-1 Te 1 
DO 103 K=KB,KE-1 
AN(I,JB-1,K)=0.0 
AS(I,JE+1,K)=0.0 
CONTINUE 


DO 106 I=IB,IE-1 

DO 106 J=JB,JE 
SP(I,J,KB-1)=SP(1I,J,KB-1)-AF(I,J,KB-1) 
AF(I,J,KB-1)=0.0 
SP(I,J,KE )=SP(I,J,KE )-AB(I,J,KE ) 
AB(I,J,KE )=0.0 

CONTINUE 


C we MODIFICATION FOR THE CELLS INSIDE OF THE DECKS 


104 
101 


C el. alot. 
eusy en 


201 


300 


Cc whe whe whe 
wii) 


e whe ateate 
avev ee 


DO 104 I=IB,IE-1 

DO 104 J=JB,JE 

DO 104 K=KB,KE-1 
SP(I,J,K)=-1.0E2 
AW(I,J,K)=0. 
AE(I,J,K)=0. 
ASCE J Meo. 
AN(I,J,K)=0. 
AB(1,J,K)=0. 
AF(I,J,K)=0. 
SU(I,J,K)=0. 

CONTINUE 

CONTINUE 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
DO 300 K=2,NK+3 
DO 300 J=3,NJ+3 
DO 300 I=2,NI+3 
DX I=DXXC(1) 
DZK=DZZC(K) 
DZX=DZK*DXI 
REG )=AP(tsd.K)-SPCl- JR) 
DV(I,J,K)=DZX/AP(1I,J,K) 
CONTINUE 


SOLVE FOR V 
CAR 3562 3,,NiGZ NItZINKt2 Vv) 


RESET THE VELOCITY INSIDE OF THE DECKS 
IF (NCHIP.EQ.0) GOTO 111 
DO 110 N=1,NCHIP 

IB=ICHPB(N) 
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IE=IB+NCHPI(N)-1 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 
DO 108 I=IB,IE-1 
DO 108 J=JB,JE 
DO 108 K=KB,KE-1 
Ch POO. 6 
108 CONTINUE 
110 CONTINUE 


111 RETURN 
END 


Fee ete eR REE REE EERE ERE R EER ERER ERE ERR ER EERE EERE REE RER EERE REE ERERE 
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SUBROUTINE CALVIS 

HAKAN A ARERR AR RARAER EER ERE ERR ERRR ERE ERR RRR IT Tete eke eke te de ke te take Sette de dete Soke Se 

* THIS SUBROUTINE CALCULATES THE TURBULENT VISCOSITY AND UPDATES * 

* THE VISCOSITY MATRIX * 


aha Ries epee make me Lae eaPaen enFane apf ep Les oPins ekace hen ben akin alee akan mhen abun fans op her Pee afer maken onkso enkiee enke Pes wFne wlans wkee also mhiomtio ahi mbes mhio mbes ahs mls mhio alienate mheo ako atic mls mln mk akomkc mhis mhin ales mhir alan akin alae alee ales alee ales mbes ales alee ahs alee ahs alo ale alonto ato 
eee eee ee iwi ele wi wii wi wi Wiel wiwiwiwiei@iwiwiwiwi Wi wi @wiwi© Wiel wil wi wl wiwiwiwiwl wi Wil wiwi@lwiel wi wii @iwiwl wil wiwiwiwiwi wi wl wll wt) 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON/R4/XC(40) ,YC(40) ,ZC(40) ,XS(40) ,YS(40) ,ZS(40) , DXXC(40), 
& DYYC(40) ,DZZC(40) , DXXS(40) ,DYYS(40) ,DZZS(40) 
COMMON/BL7/NI,NJ,NK,KRUN ,NBLOR , NWRP 
COMMON/BL14/HCOEF , CNT , ABTURB , BTURB, VISL, VISMAX 

COMMON /BL16/U0 , UGRT, BUOY ,CPO , PRT, CONDO , VISO, RHOO, 


3 TA, DTEMP, TWRITE, TTAPE , TMAX ,GC,RAIR,NT 
COMMON/BL32/T(25,25,15),R(25, 25,15) ,P(25,25,15),C(25,25,15), 
s U(25,25,15),V(25,25,15) ,W(25,25,15) 


COMMON/BL34/HEIGHT(25,25,15),REQ(25,25,15),SMP(25,25,15), 
SMPP(25,25,15),PP(25,25,15) ,DU(25,25,15), 
DV(25,25,15),DW(25, 25,15) 

COMMON/BL36/AP(25,25,15),AE(25,25,15),AW(25,25,15),AN(25,25,15), 

is AS(25,25,15),AF(25,25,15),AB(25,25,15),SP(25,25,15), 

s SU(25,25,15),R1I(25, 25,15) 

COMMON/BL37/V1IS(25,25,15),COND(25,25,15),RESORM(40), 

& CPM(25,25,15),NHSZ(3,2) ,NOD(25,25,15) 


& 
& 


C *** CALCULATE LOCAL SHEAR AND VISCOSITY VISC1I,J,K) 


C *%* SPECIFY LOCAL TURBULENT LENGTH SCALES SMPP(I,J,K) 
DO 611 K=3,NK+2 
DO 611 J=3,NJ+2 
DO 611 I=3,NI+2 


C *** CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 
DXP1=DXXC(I+1) 
DXI =DXXC(1) 
DXM1=DXXC(I-1) 


DYPI=DYe Gia) 


DYJ =DYYC(J) 
DYM1=DYYC(J-1) 
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DZP1=DZZE CK +1) 
DZK =DZZC(K) 
DAMT=DZZECK=1) 


C *** CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 
DXE =DXXS(I+1) 
DXW =DXXS(I) 


DYN 
DYS 


= HYYoCJ+ 1) 
=Dirs (J) 


DZF 
DZB 


=)ZZ5(K+1) 
=DZZS(K) 


C w*x* CACULATE DV/DX ,D2V/DX2 ,DU/DX ,D2U/DX2 ,DW/DX AND D2W/Dx2 


DUDX = (UGFaIed R)-UCT .J.K))/ Dx 
DUDXW =0.5*(U(I+1,J,K)-U(I-1,J,K))/DXW 
DUDXE =0.5*(U(I+2,J,K)-U(I  ,J,K))/DXE 


D2UDX2=( DUDXE- DUDxXW ) /DXI 


DVDXW 
DVDKE 
DVDX 
D2VDX2 


WoW ou 
oo © 


.5*(DVDXE+DVDXW ) 
( DVDXE-DVDXW ) /DxI 


DWDAW =0. 
DWDXE =0 
DWDX =0. 
D2WDXA2= 


5* (DWDXE+DWDXwW ) 
( DWDXE-DWDxXW ) /DxI 


C **% CALCULATE DU/DY,D2U/DY2,DV/DY,D2V/DY2,DW/DY AND tl ae 


ype = Cit isR=VCIes 4k) Did 
DVDYS =0.5*(V(I,J+1,K)-V(I,J-1,K))/DYS 
DVDYN =0.5*(V(I,J+2,K)-V(1,J.,K))/DYN 
D2VDY 2=(DVDYN-DVDYS) /DYJ 


DUDYS =0. 
DUDYN =0. 
DUDY =0. 
D2UDY2= 


5*( DUDYN+DUDYS ) 
( DUDYN-DUDYS ) /DYJ 


DWDYS =0. 
DWDYN =0. 
DWDY =0.5*(DWDYN+DWDYS ) 

D2WDY2= ( DWDYN-DWDYS) /DYJ 


C we% CALCULATE DU/DZ,D2U/DZ2 ,DV/DZ,D2V/DZ2 ,DW/DZ AND ce 


DWDZ = (W(I,J,K+1)-W(I,J,K  ))/DZK 
DWDZF =0.5*(W(1,J,K+2)-W(1,J,K  ))/DZF 
DWDZB =0.5*(W(1,J,K+1)-W(1,J,K-1)) /DZB 
D2WDZ2=(DWDZF-DWDZB) /DZK 


DVDZB =0.5*(V(1I,J+1,K)+V(1,J,K)-V(I,J+1,K-1)-V(1,J,K-1 
DVDZF =0.5*(V(I,J+1,K+1)+V(1I,J,K+1)-V(1I,J+1,K)-VCI,J, 


DVDZ =0.5*(DVDZF+DVDZB ) 
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5*(U(I+1,J,K)+U(1,J,K)-U(1+1,J-1,K)-U(1I,J-1,K 
5*(U(I+1,J+1,K)+U(I,J+1,K)-U(I+1,J,K)-U(1,J,K 


.5*(V(1,J+1,K)+V(1,J,K)-V(1-1,J+1,K)-V(1-1,J,K)) /DXW 
.5*(V(I41,J+1,K)+V(141,J3,K)-V(1,J+1,K)-V(1I,J,K))/DXE 


5*(W(1,J,K+1)+W(1,J,K)-W(I-1,J,K+1)-W(1I-1,J,K))/DXW 
5*(W(It1,J,K+1)+W(1I+1,J3,K)-W(1,J,K+1)-W(1,J,K))/DXE 


DYS 


Oy) 
))/DYN 


5*(W(1,J,K+1)+W(1,J,K)-W(1,J-1,K+1)-W(1,J-1,K))/DYS 
5*(W(1,J+1,K+1)+W(1,J+1,K)-W(1,J,K+1)-W(1,J,K))/DYN 


))/DZB 
K))/DZF 


D2VDZ2= (DVDZF-DVDZB ) /DZK 


DUDZB =0.5*(UCI+1,J,K)+UC(1,J ,K)-UC1+1,J3,K-1)-UC1,J ,K-1))7 eae 
DUDZF =0.5*(UCI+1,J,K+1)+U(1I,J,K+1)-UCI+1,J,K)-UC1,J,K))/DZF 
DUDZ =0.5*(DUDZF+DUDZB) 

D2UDZ2= (DUDZF-DUDZB) /D2K 


“axe CALCULATE THE DENSITY GRADIENT WITH RESPECT TO THE VERTICAL 
DRDGA=(RC I,J ,K+1)-REQC I,J ;K+1)-ROI J K-11 )+REQGI eis pe 
& (DZF+DZB ) 


*w**e CALCULATE STRAIN 
STRAIN=DUDY**2+DVDX**2+DWDX**2+DVDZ** 2+DWDY** 2+DUDZ** 2 
DDO2 =SQRTC(STRAIN+DUDX**2+DVDY**2+DWDZ** 2 ) 


IFCDDO2 .EQ- 02 OR: STRAIN EO-0 =) THEN 
VISCI,J,K)=VISL 
Eo 


wee CALCULATE TURBULENT LENGTH SCALE SMPP(I,J) 
SMP123=SORT( CGUGIT1 JAK aUCI Kio 


& ((V(1I,J+1,K)+V(1,J,K))/2. )**2+ 

& (CW(1, J, Kel) AWG 1 Ky 2- es OZ 
SMPP12=DD02/SQRT(D2UDX2**2+D2UDY 2**2+D2UDZ2**2+D2VDX2**2+ 

& D2VDY 2**2+D2VDZ2** 2+D2WDZ2** 2+D2WDX2**2+D2WDY 2**2 ) 


SMPPCI od ,K)=CNi-CSMPi Ze tee 2. 


wee CALCULATE RICHARDSON NUMBER 
RI(1I,J,K)=-BUOY*DRDGA/(RC1I,J,K)*STRAIN) 
ABRIPR=ABTURB+tRI(1,J,K)/PRT 


IF(ABRIPR.LT.O.) THEN 
V1S( ie =v Sie 
ELSEIF(ABRIPR.EQ.0.) THEN 
VIS(I,J,K)=VISMAX 
ELSE 
VIS(1,J,K)=VISL+R(1I,J,K)*SMPP(1,J,K)**2* 
& SQRT( STRAIN) /( BTURB*ABRIPR) 
IF(VIS(I,J,K).GT.VISMAX) VIS(I,J,K)=VISMAX 
ENDIF 
ENDIF 
611 CONTINUE 


#*% SPECIFY THE VISCOCITY ON THE BOUNDARY POINT 
DO 110 I=1,NI+4 
DO 110 J=1,NJ+4 
VISCI,J,NK+3)=VIS(1I,J ,NK+2) 
ViS( l,j), 2 Savile came) 
110 CONTINUE 


DO 120 J=1,NJ+4 
DO 120 K=1,NK+4 
VIS(NI+3,J,K)=VIS(NI+2,J,K) 
MAUSO2 9 OBIE = dk 
120 CONTINUE 
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130 


C ateat. ate 
ut ee 


140 


DO 130 K=1,NK+4 
DO 130 I=1,NI+4 
VIS(I,NJ+3,K)=VIS(I,NJ+2,K) 
Wis@ie2 = Ko=vIS(I.3 —~,K) 
CONTINUE 


CALCULATE TURBULENT CONDUCTIVITY 
DO 140 I=1,NI+4 
DO 140 J=1,NJ+4 
DO 140 K=1,NK+4 
IF (NOD(I,J,K).NE.1) COND(I,J,K)=VIS(1I,J,K)/PRT 
CONTINUE 
RETURN 
END 
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SUBROUTINE CALW 
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*CALCULATES THE W COMPONENT OF THE VELOCITY 


Pg) OR MR MM OM KOR RM HR & 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 


COMMON/R4/XC(40) , YC(40) ,ZC(40) ,XS(40) ,YS(40) ,ZS(40) ,DXXC(40), 
e 


DYYC(40) ,DZZC(40) , DXXS(40) ,DYYS(40) ,DZZS(40) 

COMMON /BL1/DX ,DY,DZ,DTIME,TCOOL,PI,Q,QR 

COMMON/BL7/NI ,NJ,NK,KRUN ,NBLOR , NWRP 

COMMON /BL16/U0 ,UGRT , BUOY ,CPO , PRT ,CONDO , VISO ,RHOO, 

TA ,DTEMP , TWRITE, TTAPE, TMAX ,GC,RAIR,NT 

COMMON /BL20/SIG11(25,25,15),S1IG12(25,25,15) ,S1IG22(25,25,15), 

Si1G13( 257 25-15). SIG2s( 25.25.15) 51650 25.25.15) 

COMMON /BL22/CPS(20) ,CONS( 20) ,WFAN(20) ,NCHIP, ICHPB( 20) ,NCHPI(20), 

JCHPB( 20) ,NCHPJ( 20) ,KCHPB( 20) ,NCHPK( 20) 

COMMON/BL31/TOD(25,25,15),ROD(25,25,15),POD(25,25,15), 

COD(25,25,15),U0D(25,25,15),VOD(25,25,15), 

WOD(25,25,15) 

COMMON /BL32/T(25,25,15),R(25,25,15),P(25,25,15),C(25,25,15), 
UC2525. 15) V025. 25-15) ¥025,25,15) 

COMMON /BL33/TPD(25,25,15),RPD(25,25,15),PPD(25,25,15), 

CPD(25 ,25,15),UPD(25,25,15),VPD(25,25,15), 
WPD(25,25,15) 

COMMON /BL34/HEIGHT(25,25,15),REQ(25,25,15),SMP(25,25,15), 
SMPP(25,25,15),PP(25,25,15),DU(25,25,15), 
DV(25,25,15),DW(25,25,15) 

COMMON /BL36/AP(25,25,15),AE(25,25,15),AW(25,25,15),AN(25,25,15), 
AS(25,25,15),AF(25,25,15) ,AB(25,25,15),SP(25,25,15), 
SU 25025 15), RPC25 25, 15) 

COMMON /BL37/VIS(25,25,15),COND(25,25,15),RESORM(40), 
CPM(25,25,15),NHSZ(3,2),NOD(25,25,15) 


C *** CALCULATE COEFFICIENTS 


DO 100 K=3,NK+3 
DO 100 J=2,NJ+3 
DO 100 I=2,NI+3 


C *** CENTRAL LENGTH OF THE W CONTROL VOLUME 


DXP1=DXXC(I+1) 
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DXI =DXXC(I) 
DxU1=DxXeCl= 1) 


DYE r—DyveGi) 
Dvd -DYYC@ ) 
DYM1=DYYC(J-1) 


DZP1=DZZS(K+1) 
DZK =DZZS(K) 
DZM1=DZZS(K-~1) 


C wx SURFACE LENGTH OF THE CONTROL VOLUME 
DXN=DXXC(I1) 
DXS=DXxXC(I) 
DXF=DXXC(I) 
DXB=DXXC(I) 


DYF=DYYC(J) 
DYB=DYYC(J) 
DYE=DYYCGs) 
DYW=DYYC(J) 


DZE=DZZS(K) 
DZW=DZZS(Kk) 
DZN=DZZS(K) 
DZS=DZZS(K) 


C #** CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME 
DXEE=DXXS(I+2) 
DXE =DXXS(I+1) 
DXW =DXXS(1) 
DXWW=DXXS( 1-1) 


DYNN=DYYS(J+2) 
DYN =DYYS(J+1) 
DYS =DYYS(J) 

DYSS=DYYs(J-1) 


DZFF=DZZC(K+1) 
DZF =DZZC(K) 

DZB =DZZC(K-1) 
DZBB=DZZC(K-2) 


C **#* DEFINE THE AREA OF THE CONTROL VOLUME 
DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DY ZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 


VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 


ZXROYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
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XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
Y ZOXE=DYZE/DXE 
Y ZOXW=DY ZW /DXW 


C **%* USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 


PHYSICAL PROPERTIES AND FLUX ON 
GNF=SILIN(R(I,J+1,K ),R(I,J, 
GNB=SILIN(R(I,J+1,K-1),R(I,J, 
GSF=SILIN(R(I,J-1,K 
GSB=SILIN(R(I,J-1,K-1),R(I,J, 


C 


GF 
GP 
GB 


=SILIN(R(1,J,K+1),R(1,J,K 
=SILIN(R(1,J,K-1),R(1,J,K 


GEF=SILIN(R(I+1,J,K 
GEB=SILIN(R(I+1,J,K-1 
GWF=SILIN(R(1I-1,J,K 

GWB=SILIN(R(I-1,J,K- 


C *** MASS FLOW RATE 


),RCI,J,K 


=SMMPNC RL dink =2) RC Lede ke 


THE SURFACES. 
K ),DYP1,DYJ)*V(I,J+1, 
K-1),DYP1,DYJ)*V(I,J+1 
) ,DYM1,DYJ)*V(1I,J 
K-1),DYM1,DYJ)*V(1,J 


K 
Kei 
K 
K 


-1 


) ,DZFF ,DZF)*W(1,J,Kt1) 
),DZB ,DZF)*W(I,J,K_) 
1) ,DZBB,DZB)*W(1,J,K-1) 


) ,DXP1,DXI)*U(I+1,J 
~1),DXP1,DXI)*U(I+1,J 
) ,DXM1,DXI)*U(I 
-1) ,DXM1,DXI)*U(I 


1) 
»K-1) 
J,K ) 
»J,K-1) 


CN=SILIN(GNF ,GNB , DZF ,DZB)*DZXN 
CS=SILIN(GSF,GSB,DZF ,DZB)*DZxS 
CE-SILINCGGES GER. DZE,DZB) DY ZE 
CW=SILIN(GWF ,GWB,DZF,DZB)*DYZW 


CF=0 .5*(GF+GP)*DXYF 
CB=0 .5*(GP+GB )*DXYB 


C wk VISCOSITY 
VISF=VIS(I,J,K_ ) 
VISB=VIS(1I,J,K-1) 
VISN=(VIS(I,J+1,K)+VIS(I,J,K) 
VISS=(VIS(I ,J-1,K)+VIS(I,J,K) 
VISE=(VIS(I+1,J,K)+VIS(1,J,K) 
VISW=(VIS(I-1,J,K)+VIS(I,J,K) 


VISN1=ZXOYN*VISN 
VISS1=ZxXOYS*VISS 
VISE1=YZOXE*VISE 
VISW1=YZOXW*VISW 
VISF1=XYOZF*VISF 
VISB1=XYOZB*VISB 


C *%* QUICK SCHEME 
CEP=(ABS(CE)+CE)*DXP1*DXI1/(8. 
CEM=(ABS(CE)-CE)*DXP1*DXI1/(8. 
CWP=(ABS(CW)+CW)*DXM1*DXI/(8. 
CWM=(ABS(CW)-CW)*DXM1*DXI/(8. 


CNP=(ABS(CN)+CN)*DYP1*DYJ/(8. 
CNM=(ABS(CN)-CN)*DYP1*DYJ/(8. 
CSP=(3be(Cs tes) <DYMI-DyYI/ (Co. 
CSM=(ABS(CS)-CS)*DYM1*DYJ/(8. 


Toh. tivity 1S (leak 
Vl Jae sev lo (Led k= 
K 
K 


+VIS(I+1,J,K-1)+VIS(1,J,K- 
+VIS(I-1,J,K-1)+VIS(1I,J,K- 


*DXE*(DXE+DXW )) 
*DXE*( DXE+DXEE ) ) 
*DXW* (DXW+DXWW ) ) 
*DXW*(DXW+DXE )) 


“DYN*CDYNEDYS: )) 
*DYN*(DYN+DYNN ) ) 
*DYS*(DYS+DYSS) ) 
“DYS*(DYStDYN )) 


CFP=(ABS(CF)+CF)*DZF/(DZK *16. ) 


1] 


CFM=(ABS(CF)-CF)*DZF/(DZP1*16. ) 
CBP=(ABS(CB)+CB)*DZB/(DZM1*16. ) 
CBM=(ABS(CB)-CB)*DZB/(DZK “16. ) 


AE(1,J,K)=(- . 5*CE*DXI1+CWM*DXW) /DXE+CEP+CEM*(1.+DXE/DXEE)+VISE1 
AW(1,J,K)=( .5*CW*DXI+CEP*DXE ) /DXW+CWM+CWP*(1.+DXW/DXWW)+VISW1 
AN(1,J,K)=(- . 5*CN*DYJ+CSM*DYS ) /DYN+CNP+CNM*(1.+DYN/DYNN)+VISN1 
AS(1,J,K)=( .5*CS*DYJ+CNP*DYN ) /DYS+CSM+CSP*(1.+DYS/DYSS)+VISS1 
AF(1,J,K)= -.5*CF +CBM*DZB /DZF+CFP+CFM*(1.+DZF/DZFF)+VISF1 
ABU J. KE 25*CB +CFP*DZF /DZB+CBM+CBP*(1.+DZB/DZBB)+VISB1 


C *** BOUNDARY CONSIDERATION 

TE SOr in Nits eHEN 
AEE=-CEM*DXE/DXEE 
AEER=AEE*WPD(I+2,J,K) 

ELSE 
AEE=0. 
AEER=0. 

ENDIF 


IF (I.GT.2) THEN 
AWW=-CWP*DXW/DXWW 
AWWR=AWW*WPD(1I-2,J,K) 

ELSE 
AWW=0. 

AWWR=0. 

ENDIF 


IF (J.LT.NJ+3) THEN 
ANN=-CNM*DYN/DYNN 
ANNR=ANN*WPD(I ,J+2,K) 

ELSE 
ANN=0. 

ANNR=0. 

ENDIF 


1 (le Giles THEN 
ASS=-CSP*DYS/DYSS 
ASSR=ASS*WPD(1I,J-2,K) 

ELSE 
ASS=0. 

ASSR=0. 

ENDIF 


IF (K.LT.NK+3) THEN 
AFF=-CFM*DZF/DZFF 
AFFR=AFF*WPD(I ,J,K+2) 

ELSE 
AFF=0. 

AFFR=0. 

ENDIF 


IF (K.GT.3) THEN 
ABB=-CBP*DZB/DZBB 
ABBR=ABB*WPD(I,J,K-2) 

ELSE 


ABB=0. 
ABBR=0. 
END 


C *** MODIFICATION FOR DECK BOUNDARIES 


‘® whe wo ate SU 
wri wry 


C we SU 


IF (NOD(I-1,J,K).NE.0) THEN 
AWW=0 .0 
AWWR=0 .0 

ENDIF 


PeCNOD Gigi eK) NE. 0) TREN 
AEE=0.0 
AEER=0 .0 

ENDIF 


DE ONOD Git Kk eaNE 0) TREN 
ASS=0.0 
ASSR=0 . 0 

PN: 


PE NOD Giese) NE.0) THEN 
ANN=0.0 
ANNR=0 . 0 

ENDIF 


IF (NOD(I,J,K-2).NE.0) THEN 
ABB=0.0 
ABBR=0.0 

ENDIF 


PE aC NOR Gied K+ 1)).NE.0) THEN 

AFF=0.0 

AFFR=0.0 : 
ENDL: 


FROM NORMAL STRESS 


RF=(SIG33(1,J,K )-(WC(I,J,K+1)-W(1,J,K ))*VISF/DZF)*DXYF 
RB=(S1IG33(1,J,K-1)-(W(1I,J,K  )-W(1,J,K-1))*VISB/DZB )*DXYB 
RN=(SIG23(1,J+1,K)-(W(1,J+1,K)-W(1,J  ,K))*VISN/DYN)*DZXN 
RS=(SIG23(1,J_ ,K)-(W(I,J. _,K)-W(1,J-1,K))*VISS/DYS)*DZXS 
RE=(SIG13(1+1,J,K)-(W(I+1,J,K)-W(I  ,J,K))*VISE/DXE)*DYZE 
RW=(SIG13(1. ,J,K)-(W(I ,J,K)-W(1-1,J,K))*VISW/DXW)*DYZW 


FROM CURVED STRESSES AND ACCELERATIONS 
MC2S= (ONS CSIG23(1 ,J+l.K)+S1G23(1.J,K)) 
AVG13= 0.5*(SIG13(I+1,J ,K)+S1IG13(1,J,K)) 
AVEO? -SIa INC SEG 22( 1.0 .K)eSIG22 0 a) .K-1).DZF,DZB) 
AVG11=SILIN(SIG11(1,J,K) ,SIG11(1,J,K-1) ,DZF,DZB) 


AU3=W(1I,J,K) 

AU2=BILIN(V(1,J+1,K ),V(I 
Vel s+ ik-1)).,. VC 

AU1=BILIN(U(I+1,J,K ),U(I, 
Wis 1 JeK- 19), UG 


K ),DYJ,DYJ, 
K-1),DYJ,DYJ,DZF,DZB) 
Ke oP Dae bx 
K-1) ,DXI ,DXI,DZF,DZB) 


ae 
J 
J 


> 
> 
> 
3 3 


AR=SILIN(R(1,J,K),R(1,J,K-1),DZF,DZB) 
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& 
& 
& 


100 


ARU23=AR*AU2*AU3 
ARU13=AR*AU1*AU3 
ARU22=AR*AU2*AU2 
ARU11=AR*AU1*AU1 


RRY=(AVG23-ARU23)*DXI*(DZN-DZS) 
RRX=(AVG13-ARU13)*DYJ*(DZE-DZW ) 
RRZ=(AVG22-ARU22 )*DXI* (DYF-DYB)+(AVG11-ARU11)*DYJ*(DXF-DxXB) 


AP(I,J,K)=AE(1,J,K)+AW(1,J,K)+AN(I,J,K)+AS(1,J,K) 


+AF(1,J,K)+AB(1,J,K)+AEE+AWW+ANN+ASS+AFF+ABB 
SP(1,J,K)=-(ROD(1,J,K)*DZB+ROD(1I,J,K-1)*DZF)*VOLDT/(DZB+DZF) 
SU(I,J,K)=-SP(1,J,K)*WOD(1I,J,K)+DXI*DYJ*(P(1,J,K-1)-P(1,J,K))+ 
AEER+AWWR+ANNR+ASSR+AFFR+ABBR+RE-RW+RN-RS+RF-RB+RRY+ 
RRX-RRZ-BUOY*((R(1,J,K)-REQ(I,J,K))*DZBt+(R(1,J,K-1)- 
REQ(I,J,K-1))*DZF)*VOL/(DZB+DZF) 
CONTINUE 


C *** TAKE CARE OF B.C. THRU AN,AS,AE,AW,AP AND SU 


C s=* ¥Y DIRECTION 


500 


e was whe ale 
evevaes 


502 


e whee ale ake 
aueu es 


600 


DO 500 K=3,NK+3 
DO 500 I=2,NI+3 


SP(l,2 9 ,K)=SPQ1.2 SK) 8S Gn ee) 
SP(I,NJ+3 ,K)=SP(I ,NJ+3,K)-AN(I ,NJ+3,K) 
AS(I,2 ,K)=0. 
AN(I,NJ+3,K)=0. 


CONTINUE 


X DIRECTION 
DO 502 K=3,NK+3 
DO 502 J=2,NJ+3 


SP(2.-,J,K)=SP(2. Ss ,J,K)-AWC( 2. ~=—Ss, JK) 
SP(NI+3,J,K)=SP(NI+3,J,K)-AE(NI+3,J,K) 
AW(2.~=—_,J,K)=0.0 
AE(NI+3,J,K)=0.0 


CONTINUE 


Z DIRECTION 
DO 600 I=2,NI+3 
DO 600 J=2,NJ+3 


AF(I,J,NK+3)=0. 
AB(I,J,3. )=0. 


CONTINUE 


C *** MODIFICATION FOR DECK BOUNDARIES 


IF (NGHIE EOrO Cord 201 
DO 101 N=1,NCHIP 


IB =ICHPB(N) 
IE =IB+NCHPI(N)-1 
JB =JCHPB(N) 
JE =JB+NCHPJ(N)-1 
KB =KCHPB(N) 
KE =KB+NCHPK(N)-1 


1}4 


DO 102 J=JB,JE-1 

DO 102 K=KB,KE 
SP(IB-1,J,K)=SP(IB-1,J,K)-AE(IB-1,J,K) 
SP(IE ,J,K)=SP(IE ,J,K)-AW(IE  ,J,K) 
SU(IB-1,J,K)=SU(IB-1,J,K)+AE(IB-1,J,K)*WFAN(N)*2.0 
SU Gti Jet -SUCIE SK) SAWC IE ,JGKJ“WEANCN)*2.0 
AE(IB-1,J,K)=0.0 
AW(IE ,J,K)=0.0 

102 CONTINUE 


DO 103 I=IB,IE-1 

DO 103 K=KB,KE 
SP(I,JB-1,K)=SP(I,JB-1,K)-AN(I,JB-1,K) 
SP(I,JE ,K)=SP(I,JE ,K)-AS(I,JE ,K) 
SU(I,JB-1,K)=SU(I,JB-1,K)+AN(I,JB-1,K)*WFAN(N)*2.0 
SU(I,JE ,K)=SU(I,JE ,K)+AS(I,JE ,K)*WFAN(N)*2.0 
AN(I,JB-1,K)=0.0 
AS(I,JE ,K)=0.0 

103 CONTINUE 


DOrN0G Tt Be TE = 1 
DO 106. J-—IB. JE 1 
SUC eke iasUC hI eKB=19+AFCI >I, KB) )WRANCN) 
SO) =SUC TAT (KET) -ABCI,J SKEET) “WEANCN) 
AF(I,J,KB-1)=0.0 
AB CIS KEL ))=0 70 
106 CONTINUE 


© *** FOR THE CELLS INSIDE OF THE DECKS 
DO 104 I=IB,IE-1 
DO 104 J=JB,JE-1 
DO 104 K=KB,KE 
SP(1,J,K)=-1.0E2 
AW(1,J,K)=0. 
AE(1,J,K)=0. 
ASC Ieee 0 
AN(I,J,K)=0. 
AB(1,J,K)=0. 
AF(1,J,K)=0. 
SU(I,J,K)=1.0E2*WFAN(N) 
104 CONTINUE 
101 CONTINUE 


C *%* ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
201 DO 301 K=3,NK+3 
DO 301 J=2,NJ+3 
DO 301 I=2,NI+3 
DDC) 
DYJ=DYYC(J) 
DXY=DXI*DYJ 
AP(1,J,K)=AP(1,J,K)-SP(1,J,K) 
DW(I,J,K)=DXY/AP(I,J,K) 
301 CONTINUE 


C *** SOLVE FOR W 
CALL TRID (3,3,4,NI+2,NJ+2,NK+2,W) 


C *%* RESET THE VELOCITY INSIDE OF THE DECKS 
IF (NGHIP EOs0)cOnOn id 
DO 110 N=1,NCHIP 

IB=ICHPB(N) 
I[E=IB+NCHPI(N)-1 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 
DO 108 I=IB,IE-1 
DO 108 J=JB,JE-1 
DO 108 K=KB,KE 


WCI,J,K)=WFAN(N) 


108 CONTINUE 
110 CONTINUE 


111 RETURN 


END 
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SUBROUTINE GLOBE 
*THIS SUBROUTINE CALCULATES THE GLOBAL PRESSURE CORRECTION, WHEREBY THE 
“PRESSURE. Ma TREX eI SeURBATED: 


*VARIABLES 
ola 
ome) Oly aad 
as slU hele adh 
* UGRT 
* PCORR 


USED TARE - 

SUM OF TEMPERATURES 

SUM OF PRESSURE OVER TEMPERATURE 

SUM OF EQUILIBRIUM PRESSUKE OVEK TEMP 
CONSTANT (FROM SUBROUTINE INIT) 
PRESSURE CORRECTION 


pe Oe ee i ee ek ee re ee ee ee en ee ee ee Ee ee Oe On Oe eee ee ee Oe OE ee Oe ee ee Oe Oe Oe Ok en en Ok Oe Oe ee Oe ee ee en er Pe ee 
GR ER GR ER ER ER GN ED FY ER EN ER FRED EDR AL ED ER ER GL GR EL ADIL ED ER GL AD IR AL ED ER FR ID IR GE ER GR EDGR ER EN ER FR ALED EN GL EDEL ARAL ERAN IL EL ELEY EL SV EDEL EL EDEL ED EDEL ED OD OD 


IMPEECIT DOUBLEVEREGISION  CA=He0+7) 
COMMON/R4/XC(40) , YC(40) ,ZC( 40) ,XS(40) ,YS(40) ,Z5(40) ,DXXC(40), 


& 


DYYC(40) ,DZZC( 40) ,DXXS(40) ,DYYS(40) ,DZZS(40) 


COMMON/BL7/NI,NJ,NK,KRUN,NBLOR ,NWRP 
COMMON/BL16/U0 , UGRT , BUOY ,CPO, PRT ,CONDO, VISO,RHOO, 


& 


TA,DTEMP,IWRITE,TTAPE,TMAX, GC RATE Ra 


COMMON/BL32/T(25 ,25,15),R(25,25,15),P(25,25,15),C(25,25,15), 


& 


U(25,25,15),V(25,25,15),W(25,25,15) 


COMMON/BL34/HEQTGHT(25 , 25,15) ,REQ( 25,25, 15) 3Ssue@s eer 


& 
& 


SMPP(25,25,15),PP(25,25,15),DU(25,25,15), 
DV(25,25,15) ,DW(25,25,15) 


COMMON /BL37/VIS(25,25,15),COND(25,25,15),RESORM(40), 


& 


GPM(25,25,15),NHSZ(3, 2), NODC 252 25raey 


SUMT=0. 
SUMPT=0. 
SUMPET=0. 
DO 370 I=3,NI+2 
DO 370 J=3,NJ+2 
DO 370 K=3,NK+2 
IF (NOD(1I,J,K).NE.1) THEN 


116 


DxI 
Div 
DZK 
VOL 


SUMT 
SUMP I 
SUPE 


ENTE 

370 CONTINUE 
SUMPET 
PCORR 


DO 371 I= 
DO 371 J= 
k= 


371 CONTINUE 


RETURN 
END 


DXXC(I) 

DRC) 

DZZC(K) 

DXI*DYJ*DZK 

SUMT+VOL/T(I,J,K) 
SUMPT+P(1,J,K)*VOL/T(1,J,K) 
SUMPET+REQ(1,J,K)*VOL*(1.-1./T(1,J,K)) 


SUMPET /UGRT 
CSUMPERSSUMPT)) SUM 
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SUBROUTINE GRID 


wheels aheale ale ofa ale ale ake ale ale ale wtes ate ate ale whe ale ale oleate aloate ale oleate ate ale ale aleatoate als ate afeate aleate ate ate ale oleate atcatec ule oleate alente ale ate aleate ale abeale alr atrale ale ale ate ale elie alee abe ates ale ale aloato 
GR FLV GV ER GD EL ENGL FV EL GD ER EL GL IV GL GL ED IL EL GN GL AVENGER IN GD EULER GV IDL ER EVER GL IV EN GN EVEN GUID IN GIL IL GED GL IN GLEN IL GV ENGL ENGL INVER GLEN GL EVEL EVEN GLEN OR ON EN 


*NONDIMENSIONAL VARIABLES: 


ote 
AS 


shook ck chock ook ck ck ck ch ob ck ck ck ck oF 


se ot 


>} 


ate 
a 


GRID SIZES: 


DX = X DIRECTION 


DY = Y DIRECTION 


DZ Z DIRECTION 
CENTRAL CELLS: 
XC() = X COORDINATE 
YC() = Y COORDINATE 
ZC( ) = Z COORDINATE 
DXXC() = X LENGTH 
DYYC() = Y LENGTH 
2200) = 2) LENGTH 
STAGGERED CELLS: 
XS() = X COORDINATE 
YS() = Y COORDINATE 
ZS() = Z COORDINATE 
DXXS() = X LENGTH 
DYyoC)) = GENGIO 
DZZS() = Z LENGTH 


hee wheels ale ale ale ate ate ale aloate ale ale ute ale ale ale aleale als ule ale aleate oleate ule aleule ale aloale oleate ale aleatealoate alealent. ale oleate alealeats ale ate ale ale aleale oleate ala alaoale ale aleate ale aleale als ale ale ate aleate ale 
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IMPLICIT DOUBLE PRECISION CA=H,0-Z) 
COMMON/R4/XC(40) ,YC(40) ,ZC( 40) ,XS(40) ,YS(40) ,ZS( 40) ,DXXxC( 40), 


& 


DYYC(40) ,DZZC(40) ,DXXS(40) ,DYYS(40) ,DZZS(40) 


COMMON/BL1/DX ,DY ,DZ,DTIME,TCOOL,PI,Q,QR 
COMMON/BL2/X,Y,H,TFLR,TWAL 
COMMON /BL7/NI,NJ,NK,KRUN ,NBLOR ,NWRP 


Fe 


GC ale ale ate 
ue ee ee 


g ale ale ata 
ae ee en 


10 


12 


14 


e aL. Je al. 
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GENERATION OF THE GRIDS 
DX=X /(DFLOAT(NI)*H) 
DY=Y /(DFLOAT(NJ)*H) 
DZ=H / (DFLOAT(NK)*H) 


CALCULATE XS,YS,ZS (COORDINATES OF STAGGERED CV'S) 
DO 10 I=3,NI+3 
XS(1)=(I-3)*DX 
CONTINUE 
XS(2)=XS(3)-TWAL/(H*12. ) 
XS(1)=XS(2)-TWAL/(H*12. ) 
XS(NI+4)=XS(NI+3)+TWAL/(H*12. ) 
XS(NI+5 )=XS(NI+4)+TWAL/(H*12.) 


DO 12 J=3,NJ+3 

YS(J)=(J-3)*DY 
CONTINUE 
YS(2)=YS(3)-TWAL/(H*12. ) 
YS(1)=YS(2)-TWAL/(H*12. ) 
YS(NJ+4)=YS(NJ+3)+TWAL/(H*12.) 
YS(NJ+5 )=YS(NJ+4)+TWAL/(H*12. ) 


DO 14 K=3,NK+3 
ZS(K)=(K-3)*DZ 

CONTINUE 

ZS(2)=ZS(3)-TFLR/(H*12.) 

Z8(1)=ZS(2)-TFLR/(H*12.) 

ZS(NK+4 )=ZS(NK+3 )+TFLR/(H*12. ) 

ZS(NK+5 )=ZS(NK+4)+TFLR/(H*12. ) 


CALCULATE DXXC,DYYC AND DZZC (DIMENSIONS OF CENTERED CV'S) 
DO 20 I=1,NI+4 
DXXC(1)=XS(I+1)-XS(I) 
CONTINUE 
DXXC(NI+5)=DXXC(NI+4) 


DO 22 J=1,NJ+4 
DYYC(J)=YS(J+1)-YS(J) 

CONTINUE 

DYYC(NJ+5 )=DYYC(NJ+4) 


DO 24 K=1,NKt+4 

DZZC(K )=ZS(K+1)-ZS(K) 
CONTINUE 
DZZC(NK+5 )=DZZC(NK+4 ) 


CALCULATE DXXS,DYYS,DZZS (DIMENSIONS OF STAGGERED CV'S) 
DO 30 [=2,NI+5 
DXXS(1I)=(DXXCCI)+DXXC(I-1))/2.0 
CONTINUE 
DXXS(1)=DXXS(2) 


DOr 32 J=2a Nae 

DY YSi( JD =CDy YC( J) +tDYYC(J= iy a0 
CONTINUE 
DYYS(C})=DYYS(2) 
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DO 34 K=2,NK+t5 

DZ2S( hk) =( 0220) tDZ2ZCCK 1) 2-0 
CONTINUE 
DZZS(1)=DZZS8(2) 


iene CALCULATE AC,YC, ZC CLOCAIION OF CENTER CELLS) 
DO 40 I=1,NI+5 
XCCI)=XS(1I)+DXXC(1I)/2.0 
40 CONTINUE 
DO 42 J=1,NJ+5 
WG(J)=1SC)20ryCC3) 7/2 3G 
42 CONTINUE 
DO 44 K=1,NK+t5 
ZC(K)=ZS(K)+DZZC(K)/2.0 
44 CONTINUE 
RETURN 
END 
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SUBROULINEMIN EL 
wlio SUBROUTINE INITTALIZES THE FIELD AND CONSTANTS WITH RESPECT 
*TO INITIAL START OR RESTARTING CAPABILITY. 


aL 


*VARIABLES ARE 
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“MATRICES OF THE FORM 


ALEW 
BUOY 
CO 
CONDO 
CONSRA 
CPO 


VISL 
VISMAX 


LEWIS NUMBER (USED IN SMOKE CONCENTRATION CALCULATIONS ) 
BUOYANCY FORCE CONSTANT 

INITIAL SMOKE CONCENTRATION ; 
REFERENCE CONDUCTIVITY 

NONDIMENSIONAL RADIATION CONSTANT 

REPERENGE ole CipiGr inal 

INITIAL MASS OF FUEL (LBM) 

MASS OF FUEL REMAINING (LBM) 

GRAVITY CONSTANT 

CHARACTERISTIC LENGTH;HEIGHT OF CHAMBER=10.FT 
DIMENSIONLESS HEAT TRANSFER COEF 

HEAT TRANSFER COEFFICIENT IN BTU/(CHR*FT**2*DEGREES ) 
Hecch hin CM 

NONDIMENSIONAL FORMS OF TTAPE 

NONDIMENSIONAL FORMS OF TWRITE 

KEPERENCE DENSITY 

TEMP IN DEGREES RANKINE 

DIMENSIONLESS TIME 

TEM IN DEGREES KELVIN 

CHARACTERISTIC VELOCITY (1 FT/SEC) 

PERFECT GAS LAW NONDIMENSIONAL CONSTANT 
REFERENCE VISCOSITY (NONDIM) 

MINIMUM VISCOSITY (NONDIM) 

MAXIMUM VISCOSITY (NONDIM) 


ne 


OD 


Je, B, 


AP 

AE, AW,AN 
AS, AF ,AB 
CPM 

COND( ) 
Cx CYscz 
DU , DV , DW 
DXXC ,DYYC 
YAAG: 

DXXS ,DYYS 
DZZS 

NOD 

PP 


Beer 


—_ I 


7 a a Sa a a ee ee: a 


XCEYC OZ 
* XS,YS,ZS 


Hou ud weal il | 


DIMENSIONLESS PARAMETER AT PREVIOUS TIME STEP 
DIMENSIONLESS PARAMETER AT CURRENT TIME STEP 
DIMENSIONLESS PARAMETER AT NEXT TIME STEP 


‘WHERE THE PARAMETERS ARE 


COEFICIENT AT NODE P 

COEFICIENTS AT PTS EAST,WEST,NORTH, 
SOUTH, FRONT, AND BACK 

MEAN SPECIFIC HEAT 

CONDUCTIVITY MATRIX 

LOCATION OF THERMOCOUPLE IN X,Y,Z 

USED IN PRESSURE CORRECTION SUBROUTINE 

LENGTH AROUND THE CENTER CELL 


LENGTH AROUND THE STAGGERED CELL 


IF EQUAL TO ZERO, LIQUID; IF EQUAL TO ONE, SOLID 
CORRECTED PRESSURE (P') 
DENSITY AT EQUILIBRIUM 
RESIDUAL MASS SUMMATION OF NODAL POINT 
LENGTH SCALE FOR TURBULENCE 
BOUNDARY CONDITION TERM AT NODE P 
SOURCE TERM 
TEMP, PRESSURE, AND SMOKE CONCENTRATION 
VELOCITY COMPONENTS IN X,Y,X DIRECTIONS 
VISCOSITY 
BEGINNING AND ENDING NODAL POINT FOR 

THE SOLID IN I,J,K 
X,Y,Z LOCATION OF CENTER CELL NODAL POINT 
X,Y,Z LOCATION OF STAGGERED CELL NODAL POINT 
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IMPLICIT DOUBLE PRECIS@ONSCA-Hy 0-7) 
COMMON/R4/XC(40) ,YC(40) , ZC( 40) ,XS(40) ,YS(40) ,ZS(40) ,DXXC(40), 


& 


DYYC(40) ,DZZC( 40) ,DXXS(40) ,DYYS(40) ,DZZS(40) 


COMMON/BL1/DX ,DY,DZ,DTIME,TCOOL, PI ,Q,QR 
COMMON/BL2/X,Y,H, TFLR, TWAL 

COMMON/BL3/F ,FR,HSTART 
COMMON/BL7/NI,NJ,NK,KRUN ,NBLOR ,NWRP 
COMMON/BL12/NWRITE,NTAPE ,NTMAXO ,NTREAL,TIME,SORSUM, ITER 
COMMON/BL14/HCOEF ,CNT, ABTURB, BTURB, VISL, VISMAX 
COMMON/BL16/U0,UGRT, BUOY ,CPO,PRT,CONDO ,VISO,RHOO, 


& 


TA,DTEMP,TWRITE,TTAPE,TMAX ,GC ,RAIR ,NT 


COMMON /BL20/SIG11(25,25,15),S1G12(25,25,15),SIG22(25,25,15), 


& 


S1G13(25,25,15),S1G23(25,25,15),$1G33(25,25,15) 


COMMON/BL22/CPS(20) ,CONS( 20) ,WFAN(20) ,NCHIP, ICHPB( 20) ,NCHPI(20), 


& 


JCHPB(20) ,NCHPJ( 20) ,KCHPB( 20) ,NCHPK( 20) 


COMMON/BL31/TOD(25,25,15),ROD(25,25,15),POD(25,25, 15), 


& 
& 


COD( 25,25, 15) , VODC25525415)).v Ol Ge 25,1595 
WODC2ZS)s2 5515) 


COMMON/BL32/T(25 , 25415), RC25 25515) 3259 6 (255 > eee 


& 


UC 25,25,15),V(25,25,15) ,W(25, 25,15) 


COMMON /BL33/TPD( 25 , 25,15) ,RPD( 23,259) er ize 251). 


& 
& 


CPD(25,25,15),UPD(25,25,15),VPD(25,25,15), 
WPD(25,25,15) 


COMMON /BL34/HEIGHT(25,25, 15) ,REQ(25, 25, 15)eSHP( 255259) 
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BPR O25 , 25) 150 PEt25, 25.15) DUC 25,25, 15), 
DV(25,25,15),DW(25, 25,15) 

COMMON /BL36/AP(25, 25,15) ,AE(25,25,15),AW(25,25,15),AN(25, 25,15), 
AS(25,25,15),AF(25,25,15),AB(25,25,15),SP(25,25,15), 
SU(25.25.15) RIC 25, 25,15) 

COMMON /BL37/VIS(25,25,15),COND(25,25,15),RESORM(40), 
CPM(25,25,15),NHSZ(3,2),NOD(25,25,15) 

COMMON /BL38/TCOUP( 30) ,CX(30) ,CY(30) ,CZ(30) ,NTH(30,3),NTHCO 

COMMON /BL39/ALEW, CONSRA,QSIN , QSWER , QSWAL, QSAIR, QSFAN 

COMMON /BL43/QSCONF ,QSCONB ,QSCONE, QSCONW , QSCONN ,QSCONS, 


— QR? QR? & 


& QSRADF ,QSRADB ,QSRADE ,QSRADW ,QSRADN ,QSRADS, 
& WAIR,WWAL,WINS , WERR,WWFAN 
wk INITIALIZE GIVEN PARAMETERS 
CO=0.0 
F=200.0 
HCONV=15.0 
NBLOR=13 
PI=4.*ATAN( 1.) 
TCOOL=1.0 


**% NONDIMENSIONALIZE THE REFERENCE VISCOSITY 
VISO=VISO/(U0*H) 
VISL=VISO 


wee SET MAXIMUM VISCOSITY 
VISMAX=400 .*VISL 


wee NONDIMENSIONALIZE THE HEAT TRANSFER COEFFICIENT 
HCOEF=HCONV/ (3600 .*CPO*RHOO*UO ) 


CONDO=VISO/PRT 

FR=F 

BUOY=GC*H/ (U0**2 ) 

UGRT=U0**2/(GC*RAIR*TA ) 
CONSRA=1.714E-9*TA**3/(RHOO*CP0*U0*3600. ) 


##* FOR ENERGY DISTRIBUTION 
QSIN=0. 
QSWER=0. 
QSWAL=0. 
QSAIR=0. 
QSFAN=0. 


wx INITIALIZE CONDUCTION HEAT FLUX TO EACH WALL 
QSCONF=0. 
QSCONB=0. 
QSCONE=0. 
QSCONW=0. 
QSCONN=0. 
QSCONS=0. 


*** INITIALIZE RADIATION HEAT FLUX TO EACH WALL 
QSRADF=0. 
QSRADB=0. 
QSRADE=0. 


QSRADW=0. 
QSRADN=0. 
QSRADS=0. 


NWRITE=TWRITE*U0/(DTIME*H) 
NTAPE=TTAPE*U0/ (DT IME*H ) 


C *** INITIALIZE VARIABLE FIELDS 
DO 220 J=1,NJ+4 
DO 220 I=1,NI+4 
DO 220 K=1,NK+t4 


IF(KRUN.LE.0) THEN 
OOK A) 
MED. 6) =O. 
WOD(1,J,K) =0. 
PODGn a= On 


TODC koe Uae 
COD(I,J,K) =CO 
ENDIF 
WiCleciare =VOU minnie 
UPD(I,J,K) =UOD(I,J,K) 
Clo) =VOD(I,J,K) 
VPD(I1,J,K) =VOD(I,J,K) 
lk) =WOM( 1 diet) 
WPD( I,J Ke WO adie) 
P(I,J,K) =POD( lank) 
PPD(1,J,K). =PONC1, JK) 
TEL =TOD(I,J,K) 
TPD( 1 1 keys LOD Gi) 
Gal dak) =C Obie K ) 
GED 1) On = C Oct 
DU(I,J,K)  =0. 
DV(I,J,K)  =0. 
DW(I,J,K)  =0 
SU(I,J,K)  =0. 
SP(I,J,K)  =0. 
PPCI JK) s=On 
APC. .k eon 
AW(I,J,K)  =0. 
AE(I,J,K) = 
AN(I,J,K) = 
AS(I,J,K) = 
AF(I,J,K) = 


AB(I,J,K) 


ae 


C ate ale ale 
eye ek 


5001 


5002 


5003 


5004 


5005 


5006 


5000 


SMP(I,J,K) 
SMPP(I,J,K) = 


i | 
Oo © 


Stele Ci 
SIGE Ie, 
SUE BIE SI 
SiG22(1,4, 
SiGZe(1 


K) 
K) 
K) 
K) 
K) 
SI1G33(1,J,K) 
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USE gf 1) See 

COND(I,J,K) =CONDO 

CPM(I,J,K) =1.0E0 

NOD(I,J,K) =0 
CONTINUE 


-UEFINE THERMAL PROPERTIES OF DECK AND SOLID 


IF (NCHIP.NE.0) CALL SOLCON 


ORF INE HEIGHT OF NODE POINTS "AND COMPUTE HYDROSTATIC 


EQUILIBRIUM DENSITY REQ(I,J,K) 

DO 229 J=1,NJI+4 

DO 229 I=1,NI+4 

DO 229 K=1,NK+4 
HEIGHT(I,J,K)=ZC(K) 
REQ(I,J,K)  =EXP(-BUOY*UGRT*HEIGHT(I,J,K)) 
IF(KRUN.LE.0) THEN 

ROD( (ek )=REO( I. J.K)/PeDCl J ,K) 

ENDIF 
R(I,J,K) =ROD(I,J,K) 
RPD(I,J,K)=ROD(I,J,K) 

CONTINUE 


FOLLOWING IS FOR DETERMINING THE THERMOCOUPLE POSITIONS 
DO 5000 N=1,NTHCO 
DO 5001 I=1,NI+4 
ii .C OMe iit Cx N AND XG( 1+1).GE.CX(N)) GOTO 5002 
CONTINUE 


IIf=I 
DO. 5003). J=15NIe4 

ico YCOI- i= Cy CN) -ANDeyYCOJ+1)-GE-CYCN)) GOTO 5004 
CONTINUE 


JJ=J 
DO 5005 K=1,NK+4 

IF (ZC(K).LT.CZ(N).AND. ZC(K+1).GE.CZ(N)) GOTO 5006 
CONTINUE 


KK=K 
NTH(N,1)=II 
NTH(N ,2)=JJ 
NTH(N,3)=KK 
CONTINUE 


RETURN 
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END 
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SUBROUTINE INPUT(NSTOP) 
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*THIS SUBROUTINE SETS UP REQUIRED VALUES TO BEGIN THE PROGRAM. 


* 


*VARIABLES ARE: 


KRUN 
NCHIP 
NMS 

NWRP 
NTHCO 
TMAX 
XTMAX 
TWRITE 
TTAPE 
DTIME 
XDTIME 
HSTART 
NHSZ(1,1) 
NHSZ(2,1) 
NHSZ(3,1) 
NHSZ(1,2) 
NHSZ(2, 2) 
NHSZ(3, 2) 
ICHPB 
JCHPB 
KCHPB 
NCHPI 
NCHPJ 
NCHPK 
IMSB 

JMSB 
KMSB 

NMSI 

NMSJ 
NMSK 

RMS 


Shock ok chock ok ck chock ck ch chock ck chock ck ck ck ck ck ck ck ck ck ck ck chock ck ck ot ot 


CX,CY,CZ 


RESTART INDICATOR 

NUMBER OF INTERNAL SOLID PIECES 

NUMBER OF MASS SOURCES 

NUMBER OF TIME STEPS BETWEEN WRITES 20) OUTEUt — bee 
NUMBER OF THERMOCOUPLES TO PRINT OUT 
NONDIMENSIONAL MAXIMUM TIME ALLOWED 

MAXIMUM TIME ALLOWED (SECONDS) 

TIME BETWEEN FIELD VARIABLE OUTPUT (SECONDS) 
TIME INTERVAL BETWEEN PLOTS (SECONDS) 
NONDIMENSIONAL TIME STEP 

TIME STEP CSEeGNts) 

FIRE START TIME (SECONDS) 

STARTING NODE OF HEAT SOUKCE, X-DIK 


¥°DER 
2200 
ENDING NODE OF HEAT SOURCE, X-DIR 
YeUIR 
Z-DIR 
FIRST NODE OF INTERNAL SOLID IN & DIR 
DIR 
Z DIR 
NUMBER OF INTERNAL SOLID NODES IN X DIR 
EDK 
Z DIK 
FIRST MASS SOURCE NODE IN X DIR 
Soe BHO 
Z DIR 
NUMBER OF MASS SOURCE NODES IN X DIR 
Y DIR 
Z DIR 


DIMENSIONLESS MASS SOURCE 
(= CFM/(60.*H**2*U0*NMSI*NMSJ*NMSK ) 
THERMOCOUPLE POSITIONS IN X,Y,2Z 
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USED IN THIS PROGRAM: 


*DATA FILES 


* FILE # 10 
* si 


ote 
os 


FIRE.DAT : INITIAL SED-UP DATS 
FIRE1.CONT : RESTART/CONTINUATION DATA 


OR ER OL EL GR GLAD EL GL EH EL EL OD GL ED OR ELEN ER ER GR GD FD ER ER ED ER CD EL GL ER CD ER OL ER ER ER GR ED ODER EL OR GR GR OL EL OR CB EL EL ER GL GL GR ER EL GL EL GL ED CE EE OD EL EL OD CL FL OD 4d 48 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON/BL1/DX,DY ,DZ,DTIME, TCOOL,PI,Q,QR 
COMMON/BL2/X,Y,H,TFLR, TWAL 

COMMON/BL3/F,FR,HSTART 
COMMON/BL7/NI,NJ,NK,KRUN,NBLOR , NWRP 
COMMON/BL12/NWRITE ,NTAPE ,NTMAXO ,NTREAL, TIME, SORSUM, ITER 
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COMMON/BL16/U0 , UGRT, BUOY ,CP0 , PRT, CONDO , VISO , RHOO, 


S TA,DTEMP , TWRITE,TTAPE, TMAX ,GC,RAIR,NT 
COMMON/BL22/CPS(20) ,CONS(20) ,WFAN(20) ,NCHIP, ICHPB( 20) ,NCHPI(20), 
‘ JCHPB(20) ,NCHPJ(20) ,KCHPB( 20) ,NCHPK(20) 


COMMON /BL23/RMS(20),NMS, IMSB(20) ,NMSI(20) , JMSB(20) ,NMSJ(20), 
& KMSB(20) ,NMSK(20) 
COMMON/BL31/TOD(25,25,15),ROD(25,25,15),POD(25,25,15), 
S COD(25,25,15) ,UOD(25,25,15),VOD(25,25,15), 
& WOD(25,25,15) 
COMMON/BL37/VIS(25,25,15),COND(25,25,15),RESORM(40), 
& CPM(25,25,15),NHSZ(3,2),NOD(25,25,15) 
COMMON /BL38/TCOUP( 30) ,CX(30) ,CY( 30) ,CZ(30) ,NTH( 30,3) ,NTHCO 


CHARACTER ANS*1 
LOGICAL L1,L2 
NSTOP=0 

KRUN=0 


CHECK FOR INPUT DATA FILE 
INQUIRE (FILE='/FIRE DATA Bl’ ,EXIST=L1) 
IF (L1) THEN 


READ IN DATA FROM EXISTING DATA FILE 
OPEN(10,FILE='/FIRE DATA Bl’ ,STATUS='OLD' ) 
REWIND( 10) 
READ(10,*) X,Y,H,TFLR,TWAL,TA 
READ(10,*) NI,NJ,NK 
READ(10,*) NCHIP,NMS,NWRP,NTHCO 
READ(10,*) TMAX,DTIME,TTAPE, TWRITE ,HSTART 
READ(10,*) NHSZ(1,1),NHSZ(1,2),NHSZ(2,1),NHSZ(2,2),NHSZ(3,1), 


& Niles 2 ) 


TF NCH PE EEO GOO 255 
DO 32 N=1,NCHIP ; : 
READ(10,*) ICHPB(N) ,NCHPI(N) ,JCHPBC(N) ,NCHPJ(N) ,KCHPB(N), 


& NCHPK(N) ,CPS(N) ,CONS(N) , WFAN(N) 


oe 
Ss 


36 
7 


38 
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CONTINUE 
PCN Sek 0) GOTO fs 
DO 36 N=1,NMS 
READ(10,*) IMSBCN) ,NMSICN) ,JMSB(N) ,NMSJ(N) ,KMSB(N), 


& NMSK(N) , RMS(N) 


CONTINUE 
DO 38 I=1,NTHCO 
READ lOmeamexnt 1 CY C1) .62( 1) 
CONTINUE 
REWIND( 10) 
CLOSE(10) 
BLUSE 


STOP PROGRAM IF INPUT DATA NOT AVAILABLE 
NSTOP=9999 
GOTOS999 

END 


CHECK FOR CONTINUATION FILE 
INQUIRE (FILE='/CONTINUE DATA B4' ,EXIST=L2) - 
Peach. LHEN 


-_ 


C *** READ IN DATA FROM OLD CONTINUATION FILE 
OPEN(11,FILE='/CONTINUE DATA B4' ,STATUS='OLD', 
& FORM='UNFORMATTED' ) 
KRUN=1 
REWIND(11) 
READ(11) TIME,NTMAXO,FR,TOD,ROD,UOD,VOD,WOD, POD ,COD 
REWIND(11) 
IF(TIME.GE.TMAX) TMAX=TIME+TMAX 
ELSE 


C *** CREATE NEW CONTINUATION FILE 
OPEN(11,FILE='/CONTINUE DATA B4' ,STATUS='NEW' , 
& FORM='UNFORMATTED’ ) 
KRUN=0 
ENDIF 


999 RETURN 
END 
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SUBROUTINE OUT(NN) 


oS OS Se Ee Se ee ee ee ee ee ee ee ee ee ee ee ee Oe Oe ee Oe Ee Oe oS On re ne oe ee ee ee oe ee oe oe a ae a ee a ae a a ee ee ee ee ee ee a ee ee OS ee ee ee ee Oy 
OR ORM SV GV GL EN EY EGR VED AD FUEL EY GR EL ED IL ED IDC GD AY LEV FD EL IRIS FR ED OUI EL FRED IV FT IN GN FUEL IDET OV GD EB FE EY EL GD GL GL ED OV ODOR FR OR FO GD AL ENGL ED IL FE SEED OD CD OD 


*THIS SUBROUTINE GENERATES OUTPUT. 


* NN = 1 SELECTED VALUES ARE PRINTED. INCLUDING TIME, ERROR, 
a PRESSURE, HEAT GENERATION 

* NN = 2 TEMPERATURE AT THE THERMOCOUPLES 

* NN = 3 FILED VALUES ARE PRINTED 

* NN = 4 ENERGY Dist kp e tT lon 


akes malar kao mer slae mlee aloo mls wher alee alee alee alee alee mle mbar wher alec wher mbar mbar wher mher mbar mbar wher miler mle wlan mbes mbar ates alee mfmbar alee mbar alee ats wher mbar wher mbar aber wher ahve mbar mbar mbes wher mer bee aber wher mbar wher mbar aber kar mbar wher wer mbes ales ahs mer wher mhie mbar wher wher wher 
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IMPLICIT DOUBLE PRECISION (A-H,0O-Z) 

COMMON /BL1/DX ,DY,DZ,DTIME,TCOOL,PI ,Q,QR 
COMMON/BL2/X,Y,H,TFLR,TWAL 

COMMON /BL7/NI ,NJ,NK,KRUN,NBLOR ,NWRP 

COMMON /BL12/NWRITE ,NTAPE ,NTMAXO ,NTREAL, TIME,SORSUM, ITER 
COMMON/BL16/U0,UGRT, BUOY ,CPO , PRT, CONDO , VISO,RHOO, 
5 TA , DTEMP , TWRITE, TTAPE , TMAX ,GC,RAIR,NT 
COMMON/BL32/T(25,25,15),R(25,25,15),P(25,25,15),C(25,25,15), 
5 U(25,25,15),V(25, 25,15) ,W(25,25, 15) 

COMMON /BL34/HEIGHT(25,25,15),REQ(25,25,15),SMP(25,25,15), 
S SMPP(25,25,15),PP(25,25,15),DU(25,25,15), 
& DV(25,25,15) ,DW(25,25, 15) 

COMMON /BL36/AP(25,25,15) ,AE(25,25,15),AW(25,25,15),AN(25,25,15), 


& AS(25,25,15),AF(25,25,15),AB(25,25,15),SP(25,25,15), 
& SU(25,25,15),RI(25,25,15) 

COMMON /BL37/VIS(25,25,15),COND(25,25,15),RESORM(40), 
& CPM(25,25,15),NHSZ(3,2),NOD(25,25,15) 


COMMON /BL38/TCOUP( 30) ,CX(30) ,CY( 30) ,CZ(30) ,NTH( 30,3) ,NTHCO 
COMMON/BL39/ALEW ,CONSRA ,QSIN,QSWER , QSWAL, QSAIR ,QSFAN 

COMMON /BL43/QSCONF ,QSCONB , QSCONE , QSCONW , QSCONN ,QSCONS ,QSRADF, 
g QSRADB ,QSRADE ,QSRADW, QSRADN ,QSRADS ,WAIR,WWAL,WINS, 
g WERR , WWFAN 


lo whe ale Ps : 
Bebe AR RARE AER AR ERK EERE ERE RR RR AER RRR ARERR BERR RER REA KER AERA EERE 


,F7.3,' SECONDS’ ,2X, ‘NTREAL=' ,I5,2X, 'ITER=',15, 
,F9.6,2X, 'SORSUM=' ,F9.6,2X,' Q(KW) = ',F10.4) 
EWG PORMAIC) «1% Sermo 5X. k= -12./ 10x, T (C)’, 
& OeaUGGH) SHC). = 2X. VCCM/SEC) 2X9 WCOM/SEE)  ./) 
511 FORMAT(1X,'I= ,13,2X,F9.4,2X,F9.4,2X,F9.4,2X,F9.4) 
1084 FORMAT(6X, '*** AT TIME = ',F9.4,' ***' | /, 
9X,'THE WATTAGE INPUT: WINS = ',E10.4,/, 
9X, 'WATTAGE INTO AIR: WAIR = ',E10.4,/, 
9X, 'WATTAGE DUE TO ERRO PRENO 2G. | 
9X,'WATTAGE THRU DUCT: WAIR = ',E10.4,/, 
9X,' INTO THE WALL: WW Et Once. 
2X, ‘BY CONDUCTION: QTCON = ',E10.4, 
Dey eRADIAION; “OIRAD =" B10.4. //) 


S00 FORMAT(1X, 'TIME=' 
& IX SOURCE= 


MPM MOM |KO Ke 


2728 FORMAT(9X, 


OX; 


'QSRADW: 
'QSCONW: 
9X, QSRADE: 
9X, 'QSCONE: 
9X, ‘QSRADS: 
9X, 'QSCONS: 
9X, ‘QSRADN: 
9X, ‘QSCONN: 
9X, ‘QSRADB: 
9X, ‘QSCONB: 
9X, 'QSRADF: 


INTO WEST WALL 
BY CONDUCTION = 
INTO EAST WALL 
BY CONDUCTION = 
INTO SOUTH WALL 
BY CONDUCTION = 
INTO NORTH WALL 
BY CONDUCTION = 
INTO BACK WALL 
BY CONDUCTION = 
INTO FRONT WALL 


BY RADIATION= ' 


PRES ORG). 
BY RADIATION= 
PE OmGn 
BY RADIATION= 
EP Oma = 
BY RADIATION= 
BID 10) es He 
BY RADIATION= 
ofr Sal ole fery as 
BY RADIATION= 


aoe 


7] 
~~ 
© 


bf 


so 


>] 


R77 RRR RH] |] | —\ KS 


Pes QSCONF : 
1088 FORMAT(9X, PAIR 


BY CONDUCTION = 
: LOSS INTO CAVITY 
mebOos DUE TOstHE ERK 
: LOSS INTO THE WALLS 
: LOSS THROUGH DUCT 
TOTAL INTO CAVITY AIR 
TOTAL DUE TO THE ERRO 
TOTAL THROUGH DUCT 
TOTAL INTO THE WALLS 
> TOTAL ENERGY INPUT 
j TOTAL -ENEKGY DUE TO THE ERKO= 
9X, QSAIR : TOTAL ENERGY INTO CAVITY AIR= 
ox QSFAN : TOTAL ENERGY THROUGH DUCT = 
9X,'QSWAL : TOTAL ENERGY INTO WALLS = 


“icc pt pT Ore Oe er ste ate steals she ate ale oe ates ate ale ate ale ale atoats abe abe ate of 


TL TL SL SL TL se 


- = -_ - <= —= -~ - 


9X,‘ PSWER: 

9X, _PSFAN: 

9X, PSWAL: 
1091 FORMAT(9X, ‘'QSIN 
9X. 'OSWER 


RO? | \ LR SK 
O 
Ps 
~ 
op) 
> 
a 
v2) 
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nou dou te ow ue al 
rr} 
Oo 
hw WWW WwW WW WD 
. eee S 
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t 
t 
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; 
4 
,E10.4 
4 
4 
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C *** REFERENCE TEMPERATURE IN DEGREES K 
TR=TA/1.8 


ea SREFERENCE VELOCITY IN CM/SEC 
UR=U0*30 .48 


C *s7% REFERENCE LENGTH IN CM 
HR=H*30 .48 


XTIME=TIME*H/UO 
IF (NN.EQ.1) THEN 
QRR=60 .**2*QR/3412. 
QKW=60.**2*Q /3412. 
WRITE(12,500) XTIME,NTREAL, ITER,RESORM( ITER) ,SORSUM ,QKW 


oy 


Sy ls) 


SVs 
30) 
501 


ELSE IF (NN.EQ.2) THEN 
WRITE (12,*) 
WRITE (12,*)' TEMPERATURES AT THERMOCOUPLE POSITION IN (C):', 
(TCOUP(N)*TR-273.16,N=1,NTHCO) 


WRITE (125) 
WRITE (12,*) 


ELSE UecnN iN: 


EO. 2) THEN 


WRITE( 12.  (CIX JAR IGG) eee = scene 


DO 501 J= 


BN NS 


DO 502 K=2,NK+4 


WRITE( 12,504) J,K 
DO 503 I=1,NI+4 


CONTINUE 
Boo 


IF (T1C1,J5K)eLT-1C0GL) 1G =1eeor 
XTEMP=—Gl, J Koike 27 32k 
XR =1000.*(0.0328)**3*R(I,J,K)*RHOO/2.2048 


XU) =UC JemOocur 
XV =VCI,J,K)*UR 
XW  =W(I,J,K)*UR 


XP  =P(1I,J,K)*RHOO*U0**2/(GC*14.696*144. )+REQ(I,J,K) 
XVIS =VIS(1,J,K)*HR*UR 
XCOND=COND(I,J,K)*HR*UR 
WRITE(12,511)1I,XTEMP,XU,XV,XW 

CONTINUE 
CONTINUE 


C **%* CALCULATE THE PERCENTAGE AND PRINT OUT THE RESULTS 
QTCON=QSCONF+QSCONB+QSCONS+QSCONN+QSCONW+Q SCONE 
QTRAD=QSRADF+QSRADB+QSRADS+QSRADN+QSRADW+QSRADE 


C *** WATT PERCENTAGE 
EQ.0.) WINS=1.0E-5 


IF (WINS. 
-*WAIR /WINS 


PAIR=100 


PWAL=100. 
.*WWFAN/WINS 
-*WERR /WINS 


PFAN=100 
PWER=100 


*WWAL /WINS 


C 7% ENERGY PERCENTAGE 
IF (QSIN.EQ.0.0) QSIN=1.0E-3 


PSAIR=100.*QSAIR/QSIN 
PSWAL=100 .*QSWAL/QSIN 
PSFAN=100.*QSFAN/QSIN 
PSWER=100 .*QSWER/QSIN 


WRITE(12,1084)XTIME,WINS,WAIR, WERR, WWFAN , WWAL,QTCON ,QTRAD 
WRITE( 12, 2728 )QSRADW ,QSCONW ,QSRADE ,QSCONE ,QSRADS ,QSCONS, 
QSRADN ,QSCONN ,QSRADB ,QSCONB , QSRADF ,QSCONF 
WRITE(12,1088)PAIR, PWER, PWAL, PFAN, PSAIR, PSWER , PSFAN, PSWAL 
WRITE(12,1091)QSIN,QSWER ,QSAIR,QSFAN,QSWAL 


ENDIF 


RETURN 
END 


WER AL AL ER EU ER ER AR ARAN GR AR ERED AR AR ER ARAL AR AN ER AR ER AL ER AN ER GN ER ER ED ERED ENED ER IN ERED EVEN EN ED EDEN GY GE GL COIR ER EN DRED AL GN CL ER ENED AN EN AN AN AR EN EN ON AN GD 


ths hes whe ahs ake ahs ake ake ake ats foals abe ates clo ate mle ate oleate abe ahs abe ate ates abe afe whe abe abe ale abe abe aloaks ake aheaks abe leate ale ake ale ate abe abe ale heats ake ate abe whe ate whe ake abe abe ate abe whe whe abe abe abe obs ate oleate ate ate 
OR ER ER ED EL ER ER ER ER ER AL ED EL ER ED EL ER ER ENED ERG EL ER EL ER ER ELEN EL ERG 4B AL EL ER ER EL EL EL EL AD EL ER EL EL ER EL ER AR EDEL ER EDEL EL ER EL EL ED EL CLEVER ER EL CT EL EDV EL ED Ed 


128 


SUBROUTINE RADHT (NN) 


kU Sd ea eM E OT nL coin cB TiS CES CS CGO DRCOG GS Sic ache he COR Dae are Ce Dai 1 irae i RD Re OR Dae i he i ear ee TTY 


* NN = CONTROL PARAMETER FOR HEAT FLUX CALCULATIONS 

* WHERE NN=1 :CALCULATE HEAT FLUX FROM FIRE TO WALLS 

* NN=2 :CALCULATE HEAT FLUX FROM FIRE TO BLOCKS 

* NTHS = TOTAL NUMBER OF CV'S CONTAINING HEAT SOURCES 
* NFX,NFY,NFZ = CV NUMBER OF HEAT SOURCE 

Oe EX,FY,FZ = COORDINATES OF HEAT SOURCE 


FR FR FR GR CUED ER GR GDR GD FR ENGL GR GD GU GDR GL ITIL ID IL ID GD GY GY GL GL GT IL ID EDERAL GL AL GL GT GV GD IN GL IL GD ID IN ERED ELEN GR ITED ELEN ENGL IN GC ED IL GTIN GC GL GC ED ID IN ONE 


IMPLICIT DOUBLE PRECISION (A-H,O-Z) 
COMMON/R4/XC(40) , YC(40), ZC(40) ,XS(40) ,YS(40) ,ZS(40) , DXXC(40), 
& DYYC(40) ,DZZC(40) , DXXS(40) ,DYYS(40) ,DZZS(40) 
COMMON/BL1/DX ,DY,DZ,DTIME,TCOOL,PI,Q,QR 
COMMON /BL7/NI,NJ,NK,KRUN,NBLOR ,NWRP 
COMMON /BL22/CPS(20) ,CONS( 20) , WFAN(20) ,NCHIP, ICHPB(20) ,NCHPI(20), 
& JCHPB( 20) ,NCHPJ(20) ,KCHPB( 20) ,NCHPK(20) 
COMMON /BL32/T(25,25,15),R(25,25,15),P(25,25,15),C(25,25,15), 
U(25,25,15),V(25,25,15),W(25,25,15) 
COMMON /BL36/AP(25,25,15),AE(25, 25,15) ,AW(25,25,15),AN(25, 25,15), 
Ola 15 AP C2525 15) SAB (25 625-915). SP(25, 25.15), 
SDS), 2S MG) CDS) RS 
COMMON /BL37/VIS(25,25,15),COND(25,25,15) ,RESORM(40), 
CPM(25,25,15),NHSZ(3,2) ,NOD(25,25,15) 
COMMON /BL39/ALEW , CONSRA ,QSIN,QSWER ,QSWAL ,QSAIR,QSFAN 
COMMON /BL40/VFHSW(5,25,15),VFHSE(S,25,15),VFHSS(5,15,25), 


QR RR — 


& VFHSN(5,15,25),VFHSB(5,25,25),VFHSF(5,25,25) 
COMMON /BL41/VFHSBW(5,8,34,34) , VFHSBE(5,8,34, 34) , VFHSBS(5,8, 34, 34), 
ae : VFHSBN(5,8, 34,34), VFHSBB(5,8, 34, 34) , VFHSBF(5,8, 34, 34) 


NEBS=NiOg2 G4 2 aNnoeZ CS, ) +1 

DO 500 N=1,NTHS 
NFX=NHSZ(1,1) 
NFY=NHSZ(2, 1) 
NFZ=NHSZ(3,1)-1+N 


C “we AREA OF THE FIRE ELEMENTS 
DYHS=DYYC(NFY ) 
DZHS=DZZC(NFZ) 
DAHS=PI*DYHS*DZHS 
EMIS=0.6 


C *** NN=1: CALCULATE RADIATION HEAT FLUX FROM FIRE TO WEST AND 
(G. "gSagcu EAST SURFACES OF THE ENCLOSURE 
IF (NN.EQ.1) THEN 
DOS IOOVI=5.NIe2 
DO 100 K=3,NK+2 
SUGZ ike) =SU(2,J,K) +CONSRA*EMIS*DAHS*VFHSW(N ,J,K)* 


& (TCNFX,NFY ,NFZ)**4-T(2,J,K)**4) 
SUCNI+3,J,K)=SUCNI+3 ,J ,K) +CONSRA*EMIS*DAHS*VFHSE(N ,J,K)* 
& (TCNFX ,NFY ,NFZ)**4-T(NI+3,J,K)**4) 
100 CONTINUE 


C *** CALCULATE RADIATION HEAT FLUX FROM FIRE TO NORTH AND 
te SOUTH SURFACES OF THE ENCLOSURE 
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DO 200 I=3,NI+2 
DO 200 K=3,NK+2 
SU(I,2,K) =SU(1,2,K)+CONSRA*EMIS*DAHS*VFHSS(N,K,1I)* 


& (TCNFX ,NFY,NFZ)**4-T(1,2,K)**4) 
SU(I,NJ+3,K)=SU(I,NJ+3 ,K ) +CONSRA*EMIS*DAHS*VFHSN(N,K,1I)* 
& (T(NFX ,NFY ,NFZ)**4-T(1I,NJ+3,K)**4) 
200 CONTINUE 


*** CALCULATE RADIATION HEAT FLUX FROM FIRE TO BACK AND 
**% FRONT SURFACES OF THE ENCLOSURE 
DO 300 I=3,NI+2 
DO 300 J=3,NJ+2 
SU(I,J,2) =SU(I,J,2)+CONSRA*EMIS*DAHS*VFHSB(N,I,J)* 


& (TCNFX ,NFY ,NFZ)**4-T(1,J,2)**4) 
SU(I,J,NK+3)=SU(I,J ,NK+3)+CONSRA*EMIS*DAHS*VFHSF(N,1I,J)* 
& (T(NFX ,NFY ,NFZ)**4-T(1,J,NK+3)**4) 
300 CONTINUE 
ENDIF 


we NN=2: CALCULATE RADIATION HEAT FLUX FROM FIRE TO WEST AND 
aes 7s EAST SURFACES OF BLOCK M 
TE CNNEEO 22) SnaEN 
IF ((NCHIP LT -NSLOK ee aHEN 
DO 900 M=1,NCHIP-NBLOR+1 
IB=ICHPB(M+NBLOR- 1) 
IE=TBENCHE ITM ENEEOR Se) ea 
JB=JCHPB(M+NBLOR- 1) 
JE=JBtNCHPJ (MtNBLOR=1)-1 
KB=KCHPB(M+NBLOR- 1) 
KE=KB+NCHPK(M+NBLOR-1)-1 


*#* CALCULATE RADIATION HEAT FLUX FROM FIRE TO WEST AND 
*#% EAST SURFACES OF THE BLOCK 
DO 400 J=JB,JE-1 
DO 400 K=KB,KE-1 
SU(IB,J,K) =SU(IB,J,K)+CONSRA*EMIS*DAHS* 


& VFHSBW(N,M,J,K)*(T(NFX ,NFY ,NFZ)**4- 
& T(IB,J,K)**4) 
SU(IE-1,J,K)=SU(IE-1,J,K)+CONSRA*EMIS*DAHS* 
VFHSBE(N,M,J,K)*(T(NFX ,NFY ,NFZ)**4- 
& T(IE-1,J,K)**4) 
400 CONTINUE 


**%* CALCULATE RADIATION HEAT FLUX FROM FIRE TO NORTH AND 
*%#% SOUTH SURFACES OF THE BLOCK 
DO 600 I=IB,IE-1 
DO 600 K=KB,KE-1 
SU(I,JB,K) =SU(1I,JB,K)+CONSRA*EMIS*DAHS* 


& VFHSBS(N,M,K,1)*(T(NFX,NFY ,NFZ)**4- 
& T(I,JB,K)**4) 
SU(I,JE-1,K)=SU(I,JE-1,K)+CONSRA*EMIS*DAHS* 
& VFHSBN(N,M,K, 1)*(TCNFX ,NFY ,NFZ)**4- 
& T(1,JE-1,K)**4) 
600 CONTINUE 
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C *** CALCULATE RADIATION HEAT FLUX FROM FIRE TO BACK AND 
C *** FRONT SURFACES OF BLOCK 
HO 7 0021-18 , IEA) 
DOr OC J-=J8 JEL 
SUCI,J,KB) =SUCI,J,KB)+CONSRA*EMIS*DAHS* 


= VFHSBB(N,M,1I,J)*(T(NFX ,NFY ,NFZ)**4~ 
& T(1,J,KB)**4) 
SU(I,J,KE-1)=SU(1,J,KE-1)+CONSRA*EMIS*DAHS* 
& VFHSBF(N ,M,1,J)*(TCNFX,NFY ,NFZ)**4- 
& T(1,J,KE-1)**4) 
700 CONTINUE 
900 CONT INUE 
ENDIF 
ENDIF 
500 CONTINUE 
RETURN 
END 


he abe whe whe fr ale whe whan ahr ohn ahi wher nhs wl ae whe ale ohn whe ahs whe whe ale ohn ale whe ale ates abe ate abe ale ale wle ae ale ale ates ate ale ale whe abe ale ale abe ate ale ale whe ale abe ate atoatc whe whe ale aloale abe ate ate ate ale ale ale ates ate ate ale whe alo 
OREN ER NER IR ER AR SR EN ES IN GR ER FR GR ED ER ER AR AR ER AR ER ER AD GRAN GR AR ANGLER GR ER ER EL FUG FT AR FRED FRED GL EL GRIN ED ED EC ERN GTEC GR EN ER PL EN PRES CR FR ED ODED OR ALOR ED ER 
Doge abge erat ¢e oe to cv eect se eo tues oe sees su euge ee a6 20 Fede TC Te 78 28 GC AE TEIN ES GCUR TS ICUS TE INTE TOT EE ICES IC TA RRR MARR ERRRRERRARRERE 
SUBROUTINE SOLCON 
Seema ee cece recut cece se te seco re dese se eee Se ae eae cece Sete Te Te Te TE TE TOTS TOT TO TE TOT TE OTE TTT a Te Tee Te oe Joho els de lode lode dle fate asks tacks 
* HiilomelbROULINE RESETS [THE CONDUCTIVITY OF THE SOLID. IN CALVIS * 
* THE VISCOSITY ARE CALCULATED AT EVERY CELL INCLUDING THOSE * 
* CONTAINING SOLID ONES. * 


whee wha ales abe whe ake abe ele ate ate ale abe abe ate whe ates a) a whe ahoatis abe ale abe ahs abe abe abe abe ate abe abe ahe abe ates ahs abe ahi wl ar ahi alee air fur ates wher alse ahr ales ater ate wlo ates ale atic als als mle afeatis ales ales abe ater ake abe ake ale ate ate ate oleate ate 
ER EL ED EL FR EU ERED ER ER ER AL ER AR AD AR ER ER ERED EVEL ED FR EDAD ED ER ER IR AD ER AD ED ER ERED ED FR ER AY FU IR ER ER EN GD ODER EN ICED EDEL ERED ALEC ER EU EN EDEN GR AL ERENT EDEN ENED 


IMPLICIT DOUBLE PRECISION (A-H,0-2Z) 
COMMON/BL7/NI,NJ,NK,KRUN ,NBLOR , NWRP 
COMMON/BL16/U0 ,UGRT, BUOY ,CPO , PRT ,CONDO , VISO,RHOO, 
5 TA,DTEMP, TWRITE, TTAPE, TMAX ,GC,RAIR,NT 
COMMON /BL22/CPS( 20) ,CONS( 20) ,WFAN( 20) ,NCHIP, ICHPB(20) ,NCHPI(20), 
& JCHPB( 20) ,NCHPJ(20) ,KCHPB( 20) ,NCHPK( 20) 
COMMON /BL37/V1IS(25,25,15),COND(25,25,15),RESORM(40), 
& CPM(25,25,15),NHSZ2(3,2) ,NOD(25,25,15) 


DO 402 N=1,NCHIP 
IB=ICHPB(N) 
IE=IB+NCHPI(N)-1 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 
DO 405 I=IB,IE-1 
DO 405 J=JB,JE-1 
DO 405 K=KB,KE-1 

COND(I,J,K)=CONDO*CONS(N) 
CPM(I,J,K)=CPS(N) 
NOD(I,J,K)=1 


C *** SET VALUE AT CORNER OR BOUNDARIES FOR BOUNDARY CONDITIONS 
IF (1.EQ.2) THEN 7 
COND(1,J,K)=COND(2,J,K) 
Cee Cle K)=CEM (2 JL K) a 
ELSEIF (1.EQ.NI+3) THEN 
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COND(NI+4,J,K)=COND(NI+3,J,K) 
CPM (NI+4,J,K)=CPM (NI+3,J,K) 
ENDIF 


Te GU EO 22 SHEN 
COND(I,1,K)=COND(I,2,K) 
GPMCl 1, Ky=cRt (ie) 
ELSEIF (J.EQ.NJ+3) THEN 
COND(I ,NJ+4,K)=COND(I ,NJ+3,K) 
CPM (I,NJ+4,K)=CPM (I,NJ+3,K) 
ENDIF 


IF (K.EQ.2) THEN 
COND(I,J,1)=COND(I,J,2) 
GPM (1,0, 1)=CEHeG@l ie) 
ELSEIF (K.EQ.NK+3) THEN 
COND(I,J,NK+4)=COND(I,J,NK+3) 
CPM (1,J,NK+4)=CPM (I,J,NK+3) 
ENDIF 


405 CONTINUE 
402 CONTINUE 
RETURN 
END 


wakes hes hes wlan whee ahs le aks okie als mln aks whee aber ahr aks afer ahis alas aks ales ales wher aks ale ales als alas afer abc ales aker aks afer ahes aki ahi las ake alec afer ahr ates alias akc aks ale ake afer ales whe ales aks wer ales aks ahs ate mle ale ols ahs ake ake ale als ate als teats fs wt. 
re eri ark er herd er er er er er wre ee er er er er ee ee ee ek ee ee ee i eee ed ee ee ee ed ee ed ee eed ee ed ee ed ed ee ee ee vk ee ee ek re ed ek ek ek rk ed ek ek ek ke 
malice eaten kes ahi whe whic ake aki abee akic ake okie whic ahi whisker okie bic okie afie akee akee wheats alee afer aki afi akee akee okie aki kee alas afer whee war hie aki ker hie alher kee whic ake akc ake okie whe ahi hic ake okie ake whic ahs ahi ahs hie ake ake wler ake mfas malar afer otic ober afc ale aha ale 
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SUBROUTINE STRESS 
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*THIS SUBROUTINE CALCULATES THE SHEAR STRESSES 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON/R4/XC(40) , YC(40) ,ZC(40) ,XS(40) ,YS(40) ,ZS(40) ,DXXC(40), 
is DYYC(40) ,DZZC(40) ,DXXS(40) ,DYYS(40) ,DZZS(40) 
COMMON/BL7/NI,NJ,NK,KRUN ,NBLOR,NWRP 
COMMON/BL20/SIG11(25,25,15),S1G12(25,25,15) ,S1G22(25. 25 lsum 


& SIG13(25 25,15) ,SiG@23( 25.25. lop) siGesqe 5 a alee 
COMMON/BL32/T(25,25,15),R(25,25,15),P(25,25,15),C(25,25,15), 
& U(25,25,15),V(25,25,15),W(25,25,15) 


COMMON/BL37/VIS(25,25,15),COND(25,25,15) ,RESORM(40), 
CPM(25,25,15),NHSZ(3,2),NOD(25,25,15) 


DO 100 K=2,NK+3 
DO 100 J=2,NJ+3 
DO 100 I=2,NI+3 


C *** CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 
DXP1=DXXC(I+1) 
DXI =DXXC(I) 
DXM1=DXXC(I-1) 


DYP1=DYYC(J+1) 
DYJ =DYYC(J) 
DYM1=DYYC(J-1) 


DZP1=DZZC(K+1) 


DZK =DZZC(K) 
DZM1=DZ2ZC(K-1) 


C *** SURFACE LENGTH OF THE CONTROL VOLUME 
DXN=DXXC(I) 
DXS=DXXC(I) 
DXF=DXXC(1) 
DXB=DXXC(I1) 


DYF=DYYC(J) 
DYB=DYYC(J) 
DYE=DYYC(J) 
DYW=DYYC(J) 


DZE=DZZC(K) 
DZW=DZZC(K) 
DZN=DZZC(K) 
DZS=DZZC(K ) 


C *#** CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR TEMPERATURE 
DXEE=DXXS( I +2) 
DXE =DXXS(I+1) 
DXW =DXXS(I) 
DXWW=DXXS(I-1) 


DYNN=DYYS(J+2) 
Bee SRO er st), 
DY¥s.=0Yo(d) 

Diss-DiYoCs-1) 


DZFF=DZZS(Kt2 ) 
DZF =DZZS(K+1) 
DZB =DZZS(K) 

DZBB=DZZS(K-1) 


C *** CALCULATE THE AVERAGE VELOCITY IN THE CENTER OF THE CVOLUME 
UE ak —=(uigret ado MK? ptUCI aI eK) )/ 2. 
VBAK=(VG)  ,Jt1.K Ja VCI,J2K))7/ 2. 
WEAR= CW J oO Nal aWiGl JK) 2: 


C *%*%* CROSS-SECTIONAL AREA OF THE CV AT IT'S CENTER 
DXY=DXI*DYJ 
DYZ=DYJ*DZK 
DZX=DZK*DXI 


C *** THE NOMRAL STRESSES 

SIG11(1,J,K)=2.*VIS(1I,J,K)*((UC(I+1,J ,K)-U(1,J,K))/DXI+ 

& VBAR*(DXN-DXS ) /DXY+WBAR*(DXF-DXB) /DZX) 
S1G22(1,J,K)=2.*VIS(I,J,K)*((V(I,J+1,K)-V(1I,J,K))/DYJt+ 

WBAR*(DYF-DYB) /DYZ+UBAR*(DYE-DYW) /DXY) 
S1G33(1,J,K)=2.*VIS(I,J,K)*((W(I,J,K+1)-W(I,J,K))/DZK+ 

g UBAR*(DZE-DZW) /DZX+VBAR*(DZN-DZS) /DYZ) 

100 CONTINUE 


C *** FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CV FOR SIG12 
DO 200 K=2,NK+4 
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DO 200 J=2,NJ+4 
DO 200 I[=2,NI+4 


C *** CALCULATE THE LENGTH AT VARIOUS POSITIONS 
DXN=DXXS(I) 
DXS=DXXS(I) 
DX I=DXXS(1) 


DXE=DXXC(T) 
DXW=DXXC(I-1) 


DYE=DYYS(J) 
DYW=DYYS(J) 
DYJ=DYYS(J) 


DYN=DYYC(J) 
DYS=DYYC(J-1) 


C «** THE AVERAGE VELOCITY IN THE CONTROL VOLUME 
UBAR=SILIN(CUGI.IGR) UCL 2K) DYN ers) 
VBAR=SILIN(V(I,J,K),VCI-1,J ,K),DXE,DXW) 


C *** AVERAGE VISCOSITY 
VISI2=BILIN(VIS(I ,J,K),VIS(I  ,J-1,K),DYN,DYS, 
ig VIS(I-1,J,K),VIS(I-1,J-1,K),DYN,DYS , DXE , DXW) 


C *#** SHEAR STRESS SIG12 
SIGA=((V(1,J,K)-VCI-1,J ,K))-VBAR=(DYE-DYNy Oia al 
SIGB=((UCI,J,K)-UCI ,J-1,K) )=UBAR=( DAN-DXS )/ Dat ia 
SI1G12(¢1,J,K)=VIS12*(SIGATSIGB) 


C *** FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CV FOR SIG13 


C *** CALCULATE THE LENGTH AT VARIOUS POSITIONS 
DXF=DXXS(I) 
DXB=DXXS(1) 
DXI=DXXS(T) 


DXE=DXXC(1) 
DXW=DXXC(I-1) 


DZE=DZZS(K ) 
DZW=DZZS(K ) 
DZK=DZZS(K) 


DZF=DZZC(K) 
DZB=DZZC(K-1) 


C *** THE AVERAGE VELOCITY IN THE CONTROL VOLUME 
UBAR=SILIN(U(I,J,K),U(I  ,J,K-1),DZF,DZB) 
WBAR=SILIN(W(I,J,K),W(I-1,J,K ),DXE,DXW) 


C *#«** AVERAGE VISCOSITY 


VIS13=BILIN(VIS(I ,J,K),VIS(I  ,J,K-1),DZF,DZB, 
& VIS(I-1,J,K),VIS(I-1,J,K-1) ,DZF ,DZB, DXE, DXW) 
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C *** SHEAR STRESS SIG13 
SIGA=( (wl .J.K)-WCl=1,J,K") )“WBAR*(DZE-DZW ) /DZK) /DXI 
SlGe=(CUCL.J.K)-U(C1.»,J,K=1))-UBAR* (DXF -DXB)/DX1)/DZK 
SIG13(1,J,K)=VIS13*(SIGA+SIGB) 


C *** FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CV FOR SIG23 


C **x* LENGTH AT VARIOUS POSITIONS 
DYF=DYYS(J) 
-DYB=DYYS(J) 
DYJ=DYYS(J) 


DYN=DYYC(J) 
DYS=DYYC(J=1) 


DZN=DZZS(K ) 
DZS=DZZS(K) 
DZK=DZZS(K) 


DZF=DZZC(K ) 
DZB=DZZC(K-1) 


C *** THE AVERAGE VELOCITY IN THE CONTROL VOLUME 
WBAR=SILIN(W(1,J,K),W(1,J-1,K ),DYN,DYS) 
VBAR=SILIN(V(I,J,K),V(1,J  ,K-1),DZF,DZB) 


C ws AVERAGE VISCOSITY 
Wis23-BleiNCvisCic) kK YoViIsCci Jet 
& WIS Glee ly evs Gi ac t 


- 


.K  ),DYN,DYS, 
,K-1),DYN,DYS,DZF,DZB) 


SIGA=C@V C12 4K) -VCl JU, K=1) )-VBAR=( DY? -DYB)/ DYJ)/DZK 
SIGB=( (Will Kk) -WOl ede) = WEAR“~( DZN=DZS )/DZK)/DYJ 
S1G23(1,J,K)=VIS23*(SIGA+SIGB) 


200 CONTINUE 
RETURN 
END 


ska E RR EREER ER ERE ERE RRR ER RRR EEE RRRERERRRREEREERARERERERE 

Hake RARERAARRRAAERARERER EERE EERE EER AREER RAEE RRR ERRERE RRR ERRERRERERE 
SUBROUTINE TCP 

dee RRARAKA AAA AR ARARERRRAAE AE RRRREE EER RRERERARAREE ARR ARRERERERERAERREERE 

*THIS SUBROUTINE CALCULATES THE NONDIMENSIONAL TEMPERATURE AT THE 

*THERMOCOUPLE POSITIONS. 
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IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON/R4/XC(40) , YC(40) ,ZC(40) ,XS(40) ,YS(40) ,ZS(40) , DXXC(40), 
& DYYC(40) ,DZZC(40) , DXXS(40) , DYYS(40) ,DZZS(40) 

COMMON/BL1/DX,DY,DZ,DTIME, TCOOL,PI,Q,QR 

COMMON/BL32/T(25,25,15),R(25,25,15),P(25, 25,15) ,C(25,25,15), 
& U(25,25,15),V(25,25,15),W(25,25,15) 

COMMON /BL38/TCOUP( 30) ,CX(30) ,CY(30) ,CZ(30) ,NTH(30,3) ,NTHCO 


C *** CALCULATE SIZE OF CONTROL VOLUME CONTAINING THE THERMOCOUPLES 
DO 5100 N=1,NTHCO 
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VOL=ABS( (XC(NTH(N, 1)+1)-XCCNTH(N,1)))*CYCCNTH(N ,2)+1)- 
& YC(NTH(N , 2) ))*(ZCCNTR(N, 3)+1 )/-ZECNTHON 3) 
TCOUP(N )=0. 


DO 5101 I=NTH(N,1),NTH(N,1)+1 
IT=2*NTH(N,1)+1-1 
DO 5102 J=NTH(N,2) ,NTHCN,2)+1 
JJ=2-NPHCN, 2 ted 
DO 5103 K=NTH(N,3) ,NTH(N,3)+1 
KK=2*NTH(N ,3)+1-K 


C *** CORRECT TEMPERATURES FOR THERMOCOUPLES NOT LOCATED ON NODES 
TVOL=ABS((XC( I) -CX(N) )*(CYC(J) -CY(N) )*(ZC(K)-CZ(N) )) 
WVOL=TVOL/VOL 
TCOUP(N)=TCOUP(N )+WVOL*T(CII,JJ,KK) 

5103 CONTINUE 

5102 CONTINUE 

Slo CONTINUE 

IF (TCOUP(N).LT.TCOOL) TCOUP(N)=TCOOL 
5100 CONTINUE 


RETURN 
END 
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SUBROUTINE TRIDCIST JST (KSi A ISre Jobe or cane) 
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IMPLICIT DOUBLE PRECISION (A-H,0-Z) 

COMMON/BL7/NI,NJ,NK,KRUN,NBLOR ,NWRP 

COMMON /BL36/AP(25,25,15),AE(25,25,15) ,AW(25,25,15),AN(25,25,15), 
iS AS(25,25,15),AF(25,25,15),AB(25 25.15), SP(25 25 cum 
fs SU(25,25,15),R1I(25,25,15) 

DIMENSION A(99),B(99),C(99),PHI(25,25,15) 


C *** FORWARD SWEEP IN THE X DIRECTION (FROM IST TO ISP) 
A(IST-1)=0. 
C(IST-1)=0. 
DO 100 J=JST,JSP 
DO 100 K=KST,KSP 

DO 101 I=IST,ISP 
A(I)=AE(I,J,K) 
B(1)=AW(1I,J,K) 
C(I)=AN(1I,J,K)*PHI(I,J+1,K)+AS(1I,J,K)*PHI(I,J-1,K)+ 

& AF(I,J,K)*PHI(1I,J,K+1)+AB(1,J,K)*PHI(1,J,K-1)+SU(1I,J,K) 
TERM=1./(AP(1,J,K)-B(1)*A(I-1)) 
IF (ABS(A(I)).LE.1.0E-38) A(I) 
IF (ABS(B(I)).LE.1.0E-38) B(I) 
IF CABS(C(1)).LE. 1. 0b=see< 1) 
IF (ABS(TERM).LE.1.0E-38) TERM 
A(1)=A(1)*TERM 
C(1)=(C(1)+B(1I)*C(I-1))*TERM 
101 CONTINUE 
PHI(ISP,J,K)=C(ISP) 
DO 102 I=ISP-1,IST,-1 


° 


oo°0 } 
ooo © 
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102 
100 


Cc whe whe abe 
#e ae ee 


202 
200 


C hes of ee whe 
wer wes 


301 


302 
300 


6 ole abe whe 
eer ery 


Pib@ieke) Ai) PHI ltl Kk )+CC1) 
CONTINUE 
CONTINUE 


FORWARD SWEEP IN THE Y DIRECTION (FROM JST TO JSP) 
AC JST-1)=0. 
C(jsit-1) -0" 
DO 200 K=KST,KSP 
DOeZ00" T=1sT,1SP 
DO 20 J=Jo1 5 JSP 
A(J)=AN(1I,J,K) 
Be) Ac. Kk) 
CQ) ARG Kh) PHICit). J, K)sAWC1 od K)ARHI( I-15).K)+ 


& Pa@Gekoe thle Jen tl) TAL ied Ke ralCl.J.K-1)+SUC1,J,K) 


TERM=1./(AP(1I,J,K)-B(J)*A(J-1)) 
IF (ABS(A(J)).LE.1.0E-38) A(J)=0.0 
IF (ABS(B(J)).LE.1.0E-38) B(J)=0. 
IF (ABS(C(J)).LE.1.0E-38) C(J)=0. 
IF (ABS(TERM).LE.1.0E-38) TERM=0. 
A(J)=A(J)*TERM 
C(J)=(C(J)+B(J)*C(J-1))*TERM 

CONTINUE 

PHI(I,JSP,K)=C(JSP) 

DO 202 J=JSP-1,JST,-1 
PHI(1,J,K)=A(J)*PHI(I,J+1,K)+C(J) 

CONTINUE 

CONTINUE 


0 
0 
0 


FORWARD SWEEP IN THE Z DIRECTION (FROM KST TO KSP) 
A(KST-1)=0. 
C(KST-1)=0. 
DO 300 1=I1ST,ISP 
DO 300 J=JST,JSP : 
DO 301 K=KST,KSP ’ 
A(K)=AF(1,J,K) 
B(K)=AB(1I,J,K) 
C(K)=AE(1,J,K)*PHI(I+1,J,K)+AW(1,J,K)*PHI(I-1,J,K)+ 
AN(I,J,K)*PHI(1,J+1,K)+AS(1,J,K)*PHI(1I,J-1,K)+SU(I,J,K) 
TERM=1./(AP(1I,J,K)-B(K)*A(K-1)) 
IF (ABS(A(K)).LE.1.0E-38) A(K)=0. 
IF (ABS(B(K)).LE.1.0E-38) B(K)=0. 
IF (ABS(C(K)).LE.1.0E-38) C(K)=0. 
IF (ABS(TERM).LE.1.0E-38) TERM=0. 
A(K)=A(K)*TERM 
C(K )=(C(K)+B(K)*C(K-1) )*TERM 
CONTINUE 
PHI(1,J,KSP)=C(KSP) 
DO 302 K=KSP-1,KST,-1 
PHI(1,J,K)=A(K)*PHI(I,J,K+1)+C(K) 
CONTINUE 
CONTINUE 


0 
0 
Q 
0 


REVERSE SWEEP IN X DIRECTION (FROM ISP TO IST) 
B(KSP+1)=0. 

C(KSP+1)=0. x 
DO 600 I=ISP,IST,-1 


3 


601 


602 
600 


a On 


502 
500 


C hee whee her 
iwiesis 


DO 600° J=JSP.Js 4 
DO 601 K=KSP,KST,-1 
ACK)=AF(1,J,K) 
B(K)=AB(1I,J,K) 
C(K)=AEC I,J ,K)*PHIC1 41 (JRO AW Clee) PHL Ge er 


& ANCI,J,K)*PHI(C1,J+1,K)+AS(1,J,K)*PHIC! ,J~- 10 K+ cUGieece 


TERM=1.7 (APCI. IK eACK Bik) 
B(K)=B(K)*TERM 
CCK)=(CCK) +ACK)*CCK+1) )*TERM 
IF (ABS(ACH)) -LE. 140b=28)) ACK -0-0 
IF (ABS(B(K)).LE.1.0E-38) BC(K)=0.0 
IF (CABS(G(K)) .LE.19GE=358) CG) —amo 

CONTINUE 

PHI(1,J;,Nsl)=0( ksi) 

DO 602 K=KST+1,KSP 
PHIC1,J,K)=BCK) “PHILS hp) ere) 

CONTINUE 

CONTINUE 


* REVERSE SWEEP IN THE Y DIRECTION: (PROM SP ecw ie) 


B(JSP+1)=0. 
C(JSP+1)=0. 
DO 500 K=KSP,KST,-1 
DO 500 I=ISP,IST,-1 
DO 501 J=JSP,JST,-1 
A(J)=AN(1,J,K) 
B(J)=AS(1,J,K) 
C(J)=AE(I,J,K)*PHI(I+1,J,K)+AW(1I,J,K)*PHI(I-1,J,K)+ 
AF(1I,J,K)*PHI(I,J,K+1)+AB(I,J,K)*PHI(I,J,K-1)+SU(1I,J,K) 
TERM=1. /(AP(I,J,K)-A(J)*B(J+1)) 
B(J)=B(J)*TERM 
C(J)=(C(J)+A(J)*C(J+1))*TERM 
IF (ABS(A(J)).LE.1.0E-38) A(J)=0.0 
IF (ABS(B(J)).LE.1.0E-38) B(J)=0.0 
IF (ABS(C(J)).LE.1.0E-38) C{J)=0.0 
CONTINUE 
PHI(1I,JST,K)=C(JST) 
DO 502 J=JST+1,JSP 
PHI(I,J,K)=B(J)*PHI(I,J-1,K)+C(J) 
CONTINUE 
CONTINUE 


REVERSE SWEEP IN THE Z DIRECTION (FROM KSP TO KST) 

BC ISP+1)=0. 

CCISE+1j=0- 

DO 4007IJ-JSE.ISi1. = 

DO 400 K=KSP,KST,-1 

DO 401 I=ISP,IST,-1 
A(I)=AE(I,J,K) 
BC I)=AWC1I,J,K) 
CCI)=ANC1,J,K)*PHI(C 1 ,J#1,K)+ASC1.J5,K)“PHIC1 oe 
AF(I,J,K)*PHIC1I,J,K+1)+ABC1,J,K)*PHIC1] ,J,K=-1)*+SsUC ia 

TERM=1./ (APC1.I.K)-ACl BC 
B( I)=BC1I)*TERM 
CCI)=(CC1I)+ACI)*CCI+1))*TERM 
IF (ABS(CACI)).LE.1.0E-38) ACI)=0.0 
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hea Chl) OLE. Ob sooo) BCI) 
PESCsBecCCl) 2 LE] l-0b= 33) C(1) 
401 CONTINUE 


=0.0 
=0.0 


PHUCIS? JK) -CCIs? ) 
DOO 2 W=TSEr1, (SP 
PHU ak 8 Ci) EHC =I, K)+CC1,) 


402 CONTINUE 


400 CONTINUE 


RETURN 
END 
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SUBROUTINE VIEW 
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2 a a a 


NTHS 

NFX ,NFY ,NFZ 
FX FY ,FZ 
DXS,DYS,DZS 
SXS ,SYS,SZS 
VFHSW , VFHSE 


RSQW , RSQE 


TOTAL NUMBER OF NODES CONTAINING HEAT SORCE 
NUMBER OF NODES IN HEAT SOURCE PER DIRECTION 
STARTING COORDINATES OF HEAT SOURCE 

LENGTH IN EACH DIRECTION ON THE SOUTH SURFACE 
OF THE ENCLOSURE 

COORDINATES OF THE SURFACE ELEMENT (USED TO 
CALCULATE THE DISTANCE TO HEAT SOURCE) 

VIEWS RACTOR FROM THE HEAT SOURCE TO WEST, EAST 
SURFACES OF THE ENCLOSURE 

SQUARE OF DISTANCE FROM THE HEAT SOURCE TO THE 
WES? Br ole SURPACE ELEMENT. 


NODES 2 THRU NI,2 THRU NJ AND 2 THRU NK ARE CONTAINED 
INSIDE THE WALL, RADIATION EFFECTS INVOLVE ONLY NODES 
Sen RO NIMS So THRUSNIMIT, AND 3° THRU NKM1 


VFHSBW(N,M,I1,J), 
VFHSBE(N,M,1,J) = VIEW FACTOR FROM FIRE NODE N TO ELEMENT (I,J) OF 


WEoT, EAST SURFACES OF CY M- 


hee ehee whee war whee ahs ale whee hes alee whee whe whee abe abe abe whe whe whe whe ale whe whe ale whe whe whe whe ela whe ale whe abe ale whe ate whe whe whe whe whe when ate whe whe whe on ale ale alas ake ale whe ale whe ate whe ate ale whe afew es whe ale whe ale whe whe als whe ale 
GR GR ERED AN AU ER AR OD ER ER ED ER ED ER AN CD ER EL AL ER ED GDL ER GL ES GV EL ED ED ER ID ED EL ED EN GR ID ER GN ODED ED CX PL ER ED ED ED ED ED ATED FR GL ED ED GR ES EDU ED EDEN IN FRED EDL ED ED ED 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON/R4/XC(40) ,YC(40) ,ZC(40) ,XS(40) ,YS(40) ,ZS(40) ,DXXC(40), 


& 


DYYC(40) ,DZZC( 40) ,DXXS(40) ,DYYS(40) ,DZZS(40) 


COMMON /BL1/DX ,DY ,DZ,DTIME,TCOOL, PI ,Q,QR 
COMMON /BL2/X,Y,H,TFLR, TWAL 

COMMON/BL7/NI ,NJ,NK,KRUN ,NBLOR, NWRP 

COMMON /BL22/CPS(20),CONS( 20) ,WFAN( 20) ,NCHIP, ICHPB( 20) ,NCHPI(20), 


og og & — 


VEHEBGZ0 JE NGHPIC 20) KCHRB G20) -NCHEK(C20) 


COMMON/BL37/VIS(25,25,15),COND(25,25,15),RESORM(40), 


CPM(25,25,15),NHSZ(3,2) ,NOD(25,25,15) 


COMMON, BLGO) VPHSWCS 525, 15), VEHSE(5, 25,15), VFHSS(5 15,25), 


VFHSN(5,15,25),VFHSB(5,25,25),VFHSF(5, 25,25) 


COMMON /BL41/VFHSBW(5 ,8,34,34) , VFHSBE(5,8,34,34) , VFHSBS(5, 8, 34, 34), 


VFHSBN(5,8,34,34) , VFHSBB(5,8,34,34) , VFHSBF(5,8, 34,34) 


NTHS=NHSZ(3,2)-NHSZ(3,1)+1 
DO 500 N=1,NTHS 


SUMM=0. 


NFX=NHSZ(1,1) 
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Cc Pa oe oe 
wrens 


NFY=NHSZ(2,1) 


=NHSZ(3,1)-1+N 
=XS(NFX+1) 
=YS(NFY+1) 
=ZS(NFZ+1) 


VIEW FACTOR FROM FIRE TO WEST & EAST SURFACES OF ENCLOSURE 
DO 100 J=3,NJ+2 
DO 100 K=3,NK+2 


DYW=DYYC(J) 
BDYE-DY Te) 
DZW=DZZC(K) 
DZE=DZZC(K) 


SXW=XS(3) 
SXE=XS(NI+3) 
SYW=YC(J) 
SrE=16C) 
SZW=ZC(K) 
SZE=ZC(K) 


DY ZW=DYW*DZW 
DY ZE=DYE*DZE 


RSQW=(FX-SXW)**2+(CFY-SYW)**2+(FZ-SZW )**2 
RSQE=(FX-SKE =“ 2+( BPY-SYE)==2hhZoo7k ene 


VFHSW(N,J,K)=SQRT( (FX-SXW) **2/RSQW)*DYZW/(4.0*PI*RSQW) 
VFHSE(N,J,K)=SQRT( ( FX-SXE)**2/RSQE )*DYZE/(4.0*PI*RSQE) 
SOMM=SUMM+VFHSW(N,J,K)+VFHSE(N,J,K) 


100 CONTINUE 


C we VIEW FACTOR FROM FIRE TO NORTH & SOUTH SURFACES OF ENCLOSURE 


DO. 200 Ai=3, NIitZ 
DO 200 K=3,NK+t2 


DXS=DXXC( 1) 
DXN=DXXC(T) 
DZS=DZZC(K) 
DZN=DZZC(K) 


SXN=XC(T) 
SXS=XC(I) 
SYN=YS(NJ+3) 
SYS=YS(3) 
SZN=ZC(K) 
SZS=ZC(K) 


DZXS=DXS*DZS 
DZXN=DXN*DZN 


RSQS=(FX-SXS )**2+(FY-SYS )**2+(FZ-SZS )**2 
RSQN=(FX-SXN )**2+(FY-SYN)**2+(FZ-SZN)**2 


VFHSS(N,K,I)=SQRT((FY-SYS)**2/RSQS )*DZXS/(4.0*PI*RSQS) 


VFHSN(N ,K, 1 )=SQRT(( FY-SYN)**2/RSQN )*DZXN/(4.0*PI*RSQN) 
SUMM=SUMM+VFHSS(N,K,1I)+VFHSN(N,K,I1) 
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200 CONTINUE 


C *** VIEW FACTOR FROM FIRE TO FRONT & BACK SURFACES OF ENCLOSURE 
DO 300 I=3,NI+2 
DO 300 J=3,NJ+2 
DXF=DXXC(I) 
DXB=DXXC(I) 
DYF=DYYC(J) 
DYB=DYYC(J) 


SXF=XC(I) 
SXB=XC (IT) 
SYF=YC(J) 
SYB=YC(J) 
SZF=ZS(NK+3) 
SZB=25(3) 


DXYB=DXB*DYB 
DXYF=DXF*DYF 


RSQB=( FX-SXB)**2+( FY-SYB)**2+(FZ-SZB)**2 
RSOP=( FX aan ee yas h 2+ RZ eoZF eZ 


VFHSB(N,1I,J)=SQRT( (FZ-SZB)**2/RSQB)*DXYB/(4.0*PI*RSQB) 
Vion CN id SORT CEZISZ2F \=~2/RS0F )~DXYF/(4.0=PI~RSQF } 
SUMM=SUMM+VFHSB(N,I,J)+VFHSF(N,I,J) 

300 CONTINUE 


C *** MODIFY VIEW FACTORS SO THEIR SUMMATION EQUALS UNITY. 
“pO 150 J=3,NJ+2 
DO 150 K=3,NK+2 
VFHSW(N,J,K)=VFHSW(N ,J,K)/SUMM 
VFHSE(N,J,K)=VFHSE(N,J,K)/SUMM 
150 CONTINUE 
DO 250 K=3,NK+2 
DO 250 I=3,NI+2 
VFHSS(N,K,1)=VFHSS(N,K,1)/SUMM 
VFHSN(N,K,1I)=VFHSN(N,K,1)/SUMM 
250 CONTINUE 
DO 350 I=3,NI+2 
DO 350 J=3,NJ+2 
VFHSB(N,1I,J)=VFHSB(N,1,J)/SUMM 
VFHSF(N,1,J)=VFHSF(N,1I,J)/SUMM 
350 CONTINUE 


IF (NCHIP- LT SNBLOR) GOTO 500 


C *** CALCULATE VIEW FACTORS FROM FIRE N TO INTERNAL SOLID BLOCKS 
C **%* (BLOCKS ARE ONLY THOSE NOT INCLUDED IN THE WALL) 


C *** VIEW FACTOR FROM THE FIRE TO WEST & EAST SURFACES OF BLOCK M 
DO 900 M=1,NCHIP-NBLOR+1 
IB =ICHPB(M+NBLOR-1) 
IE =IB+NCHPI(M+NBLOR-1)-1 
JB =JCHPB(M+NBLOR-1) 
JE =JB+NCHPJ(M+NBLOR-1)-1 
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KB =KCHPBC(M+NBLOR- 1) 
KE =KB+NCHPK(M+NBLOR-1)-1 


SXW=XS( IB) 
SXE=XS(IE) 


DO 400 JJ=JB,JE-1 
DO 400 KK=KB,KE-1 
DYW=DYYC(JJ) 
DYE=DYYC(JJ) 
DZW=DZZC(KK) 
DZE=DZZC(KK) 


SWC (IJ) 
SYE=YC(JJ) 
SZW=ZC(KK ) 
SZE=ZC (KK ) 


DY ZW=DYW*DZW 
DY ZE=DYE*DZE 


RSQW=(FX-SXW )**2+(FY-SYW)**2+(FZ-SZW)**2 
RSQE=( PX=SXE)@“27( PYoSYE as 2 aCe shee 
VFHSBWC(N,M,JJ ,KK)=SQRT( ( FX-SXW)**2/RSQW )*DYZW/(4.0*PI*RSQW) 
VFHSBEC(N ,M,JJ,KK)=SQRT( (FX-SXE)*“*2/RSQE )*DYZE/(4.0-PI=Ra@Ee 


C *** MODIFY VIEW FACTORS DUE TO INTRODUCTION OF INTERNAL BLOCKS 
IF (SXE.LT.FX) VFHSBW(N,M,JJ,KK)=0. 
IF (SXW.GT.FX) VFHSBE(N,M,JJ,KK)=0. 


C ** THE FIRE CAN'T SEE THE WEST AND EAST SURFACES OF THE BLOCK 
IF (SXW.LE.FX.AND.SXE.GE.FX) THEN 
VFHSBW(N,M,JJ,KK)=0. 
VFHSBE(N,M,JJ,KK)=0. 
ENDIF 
400 CONTINUE 


C we CHECK TO SEE IF ANY ELEMENT ON THE WALL IS SHADED BY A SOLID SBEGs 


C *** CHECK WEST AND EAST WALLS OF ENCLOSURE 
DO 410 J=3,NJ+2 
DO 410 K=3,NK+2 


C *** THE BLOCK IS ON THE WEST SIDE OF THE FIRE 
IF (SXE.LT.FX) THEN 
NVIW=NVIWX(FX,FY,FZ,XS(3),YC(J),ZC(K) ,SXE, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSW(N,J,K)=0. 
ENDIF 


GC =x THE BLOCK IS ON THE EAST SIDE SCR ines 
IF COAWsGT oF eslHEN 
NVIW=NVIWX(FX,FY,FZ,XS(NI+3) , YC(J), ZC(K) ,SXW, 
& IB,JB,KB, l[EGoeaRE) 
IF (NVIW.EQ.1) VFHSEC(NCS hie 
ENDIF 


410 CONTINUE 


C *** CHECK SOUTH AND NORTH WALLS OF THE ENCLOSURE 
DO 420 K=3,NK+2 
DO 420 I=3,NI+2 


C *** THE BLOCK IS ON THE WEST SIDE OF THE FIRE 
Logs eG i enAND- Xe@io) La. PX) ) THEN 
NVIW=NVIWX(FX ,FY,FZ,XC(1),YS(3),ZC(K) ,SXE, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSS(N,K,I)=0. 
NVIW=NVIWX(FX,FY,FZ,XC(1), YS(NJ+3) , ZC(K) ,SXE, 
iS IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSN(N,K,I)=0. 
ENDIF 


C *** THE BLOCK IS ON THE EAST SIDE OF THE FIRE 
IF (SXW.GT.FX.AND.XC(I).GT.FX) THEN 
NVIW=NVIWX(FX ,FY,FZ,XC(1),YS(3),ZC(K),SXW, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSS(N,K,I)=0. 
NVIW=NVIWX(FX,FY,FZ,XC(1),YS(NJ+3) ,ZC(K) , SXW, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSN(N,K,1I)=0. 
ENDIF 
4,20 CONTINUE 


C *** CHECK BACK AND FRONT WALLS OF ENCLOSURE 
DO 430 I=3,NI+2 
DO 430 J=3,NJ+2 


C *** THE BLOCK IS ON THE WEST SIDE OF THE FIRE 
IF (SXE.LT.FX.AND.XC(I).LT.FX) THEN . 
NVIW=NVIWX(FX ,FY,FZ,XC(1),YC(J),2S(3),SXE, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSB(N,I,J)=0. 
NVIW=NVIWX(FX ,FY,FZ,XC(1),YC(J),2ZS(NK+3) ,SXE, 
S IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSF(N,I,J)=0. 
ENDIF 


C *** THE BLOCK IS ON THE EAST SIDE OF THE FIRE 
IF (SXW.GT.FX.AND.XC(I).GT.FX) THEN 
NVIW=NVIWX(FX,FY,FZ,XC(1I),YC(J),28(3),SXW, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSB(N,I,J)=0. 
NVIW=NVIWX(FX,FY,FZ,XC(1I),YC(J),ZS(NK+3) ,SXW, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSF(N,I,J)=0. 
ENDIF 
4.30 CONTINUE 


C *** VIEW FACTOR FROM FIRE TO NORTH & SOUTH SURFACES OF BLOCK M 
DO 600 II=IB,IE-1 
DO 600 KK=KB,KE-1 aa 
DXN=DXXC(II) 
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DXS=DXXC(IT) 
DZN=DZZC(KK) 
DZS=DZZC(KK ) 


SXN=XC(IT) 
SXS=XC( II) 
SYN=YS(JE) 
SBS GS 5) 
SZN=ZC(KK) 
SZS=ZC(KK) 


DZXN=DXN*DZN 
DZXS=DXS*DZS 


RSOS=CPXsSXS )>*2+CBY -Si 5) 2t( Boor 
RSQN=(FX-SXN)**2+( FY-SYN)**2+(FZ-SZN )**2 
VFHSBS(N,M,KK, IT) =SQRT(( FY-SYS)**2/RSQS)*DZXS/(4.0*PI*RSQS) 
VFHSBN(N,M,KK,II)=SQRT(( FY-SYN)**2/RSQN )*DZXN/(4.0*PI*RSQN) 


C *** MODIFY VIEW FACTORS DUE TO INTRODUCTION OF INTERNAL BLOCKS 

IF (SYN.LT.FY) VFHSBS(N,M,KK,II)=0. 

IF (SYS.GT.FY) VFHSBN(N,M,KK,II)=0. 

IF (SYS.LE.FY.AND.SYN.GE.FY) THEN 
VFHSBS(N,M,KK,II)=0. 
VFHSBN(N,M,KK,II)=0. 

ENDIF 

600 CONTINUE 


C *** CHECK IF ANY ELEMENT ON WALL IS SHADED BY INTERNAL SOLID BLOCKS 


C wx CHECK WEST AND EAST WALLS OF THE ENCLOSURE 
DO 610 J=3,NJ+2 
DO C1OUK=a0Nka 


C *** THE BLOCK IS ON THE SOUTH SIDE OF THE FIRE 
IF (SYN.LT.FY.AND.YC(J).LT.FY) THEN 
NVIW=NVIWY(FX, FY ,FZ,XS(3),YC(J),ZC(K) , SYN, 
S IB,JB,KB, 1IE,JE,KE) 
IF (NVIW.EQ.1) VFHSW(N,J,K)=0. 
NVIW=NVIWY(FX,FY,FZ,XS(NI+3) , YC(J),ZC(K),SYN, 
g IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSE(N,J,K)=0. 
ENDIF 


C *** THE BLOCK IS ON THE NORTH SIDE OF THE FIRE 
IF (SYS.GT.FY.AND.YC(J).GT.FY) THEN 
NVIW=NVIWY(FX,FY,FZ,XS(3),YC(J),ZC(K) , SYS, 
iS IB, JB,KB, IE,JE,KE) 
IF (NVIW.EQ.1) VFHSW(N,J,K)=0. 
NVIW=NVIWY(FX,FY,FZ,XS(NI+3),YC(J), ZC(K),SYS, 
& IB, JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSE(N,J,K)=0. 
ENDIF 
610 CONTINUE 


C *«** CHECK THE SOUTH AND NORTH WALLS OF THE ENCLOSURE 
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DO 620 K=3,NKt2 
DO: 6201-3, Nir2 


C *** THE BLOCK IS ON THE SOUTH SIDE OF THE FIRE 
IF (SYN.LT.FY) THEN 
NVIW=NVIWY(FX , FY ,FZ,XC(1),YS(3),ZC(K),SYN, 
fe IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSS(N,K,I)=0. 
ENDIF 


C *** THE BLOCK IS ON THE NORTH SIDE OF THE FIRE 
IF (SYS.GT.FY) THEN 
NVIW=NVIWY(FX,FY,FZ,XC(1I),YS(NJ+3),2ZC(K),SYS, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSN(N,K,I)=0. 
ENDIF 
620 CONTINUE 


C *** THE BACK AND FRONT WALLS OF THE ENCLOSURE 
DO 630 I=3,NI+2 
DO 630 J=3,NJ+2 


C ** THE BLOCK IS ON THE SOUTH SIDE OF THE FIRE 
IF (SYN.LT.FY.AND.YC(J).LT.FY) THEN 
NVIW=NVIWY(FX,FY,FZ,XC(1I) ,YC(J) ,2ZS(3),SYN, 
é IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSB(N,1I,J)=0. 
NVIW=NVIWY(FX, FY ,FZ,XC(1I) ,YC(J) , ZS(NK+3) , SYN, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSF(N,1I,J)=0. 
ENDIF 


C *** THE BLOCK IS ON THE NORTH SIDE OF THE FIRE 
IF (SYS.GT.FY.AND.YC(J).GT.FY) THEN 
NVIW=NVIWY(FX,FY,FZ,XC(1I) ,YC(J),ZS(3),SYS, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSB(N,I,J)=0. 
NVIW=NVIWY(FX,FY,FZ,XC(1I),YC(J), ZS(NK+3) , SYS, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSF(N,I,J)=0. 
ENDIF 
630 CONTINUE 


mee = CHECK VIEW FACTORS FROM FIKE TO BACK & FRONT SURFACES OF BLOCK M 
DOs, OOF I- TB k=) 
DOs 700773 =35.JE-1 
DXF=DXXC( IT) 
DXB=DXXxC(II) 
DY Foy Ces.) 
DYB=DYYC(JJ) 


DXYB=DXB*DYB 
DXYF=DXF*DYF 


SXF=XC( ITI) 
SXB=XC( II) 


Spt eld!) 
SYB=YC(JJ) 
SZF=Z5(KB) 
SZB=ZS(KB) 


RSQB=(FX-SXB)**2+( FY-SYB)**2+(FZ-SZB)**2 
RSQF=(FX-SXF)**2+(FY-SYF)**2+(FZ-SZF)**2 

VFHSBB(N ,M,II,JJ)=(CFZ-SZB)**2*DXYB/(4.0*PI*RSQB**2 ) 
VFHSBF(N,M,II,JJ)=(FZ-SZF)**2*DXYF/(4.0*PI*RSQF**2) 


C *** MODIFY VIEW FACTORS DUE TO INTRODUCTION OF INTERNAL SOLID BLOCKS 
IF (SZF.LT.FZ) VFHSBB(N,M,II,JJ)=0. 
IF (SZB.GT.FZ) VFHSBF(N,M,II,JJ)=0. 
IF (SZB.LE.FZ.AND.SZF.GE.FZ) THEN 
VFHSBB(N,M,II,JJ)=0. 
VFHSBF(N,M,II,JJ)=0. 
ENDIF 
700 CONTINUE 


C *«* CHECK IF ANY ELEMENT ON THE WALL IS SHADED BY SOLID BLOCK. 


C *** THE WEST AND EAST WALLS OF THE ENCLOSURE 
DO 710 J=3,NJ+2 
DO 710 K=3,NK+2 


C *** THE BLOCK IS ON THE BACK SIDE OF THE FIRE 
IF (SZF.LT.FZ.AND.ZC(K).LT.FZ) THEN 
NVIW=NVIWZ(FX ,FY,FZ,XS(3) , YC(J) ,ZC(K) ,S2F, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSW(N,J,K)=0. 
NVIW=NVIWZ(FX ,FY,FZ,XS(NI+3),YC(J),ZC(K),SZF, 
g IB, JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSE(N,J,K)=0. 
ENDIF 


C ** THE BLOCK IS ON THE FRONT SIDE OF THE FIRE 
IF (SZB.GT.FZ.AND.ZC(K).GT.FZ) THEN 
NVIW=NVIWZ(FX ,FY,FZ,XS(3),YC(J),2ZC(K) ,SZB, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSW(N,J,K)=0. 
NVIW=NVIWZ(FX,FY,FZ,XS(NI+3),YC(J),ZC(K),SZB, 
S IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSE(N,J,K)=0. 
ENDIF 
710 CONTINUE 


C *#** CHECK THE SOUTH AND NORTH WALLS OF THE ENCLOSURE 
DO 720 K=3,NK+2 
DO 720 1 =32NigeZ 


C *** THE BLOCK IS ON THE BACK SIDE OF THE FIRE 
IF (SZF.LT.FZ.AND.ZC(K).LT.FZ) THEN 
NVIW=NVIWZ(FX ,FY,FZ,XC(I),YS(3),ZC(K) ,S2F, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSS(N,K,I)=0. 
NVIW=NVIWZ(FX,FY,FZ,XC(1I),YS(NJ+3),ZC(K) ,SZF, 
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5 IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSN(N,K,I)=0. 
ENDIF 


*** THE BLOCK IS ON THE FRONT SIDE OF THE FIRE 
Pr sZeeGiirh2 ANDN 260K). GiaEZ) THEN 
NVIW=NVIWZ(FX ,FY,FZ,XC(I),YS(3) ,ZC(K) ,SZB, 
Se IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSS(N,K,I)=0. 
NVIW=NVIWZ(FX ,FY,FZ,XC(1),YS(NJ+3),2C(K) ,SZB, 
& IB,JB,KB,IE,JE,KE) 
IF (NVIW.EQ.1) VFHSN(N,K,I)=0. 
ENDIF 
720 CONTINUE 


“watz CHECK THE BACK AND FRONT WALLS OF THE ENCLOSURE 
DO 750) -SNis2 
DO 730-9 -5 Nur 2 


poe tHe BLOCK [s ON THE BACK SIDE OF THE FIRE 
eaeCoat. biaZ ea HEN 
NVIW=NVIWZ(FX,FY,FZ,XCC1),YC(J) ,285(3) ,SZF, 
& OB Noa ee We) 
PE VONVIW EO] 1 a VEHSB ONT I Jj =0- 
ENDIF 


we THE BLOCK 13S 0N THE FRONT SIDE OF THE FIRE 
If (528-6) FZ) THEN 
NVIWS=NVIWZCFX,FY,FZ,XCCI) ,YC(J) , ZSCNK+3) ,SZB, 
& ~ PB JB KB bib KE, ) 
PE ONV IW -EQ 1) VFHSFCN, TJ )=0. 
ENDIF 
730 CONTINUE 
900 CONTINUE 
500 CONTINUE 


RETURN 
END 
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FUNCTION BILIN(V1,V2,D1,D2,V3,V4,D3,D4,D5,D6) 


whe abe whe abe whe ake ahe abe ales te abe abe ate abe ate we abe ata alan ale abe ate alc ake abe ate ale ake lr ole ale ala ole ate abe abe ale oleate fe ole ofe abe ole abe ale whe ale ale abe ate oleate abe ale ate beaks ahs abe fe ake ake ales abe he ate abe ake abe abs ate 
ER ERED EN OR ER EN ELD ELEY OR ERED DERE ER OD GL FV EVER ER ET ER GY ER EN GR GR ER EN EUAN GY EN AD GL ER EN ADEN AL EN ER ER EN EN EDEN EN EDEN GLEN EVEN GLEN EN EV ED EV EL EV FV ED ED EVEN ON 


* BI-LINEAR INTERPOLATION 


PIE EPC rT DOUBLESRRECIG LON (A-H{O=2Z) 
V12=(V1*D2+V2*D1)/(D1+D2) 
V34=(V3*D4+V4*D3) /(D3+D4) 
BILIN=(V12*D6+V34*D5 ) /(D5+D6) 


RETURN 
END 


octet sete te teste tect ste ste che ste he che he te ct ete who ote tn nte eheate abe alot ale ate tealv ats alo ats eluate alow ale eloals shoals ale ate ule aleots ats elo claets ota ots clo ets gto ale toatoats toate toate atoate ale ats ole 
PREV EVER ER ER EL ER FR ER ER ER ER GR ERED SV ED ER LGN EN ERED ED AD ER ER GD GR ER GD ED AR ED OR ED GL EDEL ER ED ERED ER GR GL ED EN ER GV GR GD EDEL SV EV EL EN GR EVER ER EV PN ER ER ED FR EH EL ED 


tbe ate abe afe ohe whe whe ate ale ote abe abe abe ote ole abe ate abe ahs ate alo abe ate whe ake abe wlhoake wheats ote ake ate atvats ale afsale abe ote ale ale ake ole ofe ole ale ate ole ale ate ate abe ale ate ole toate ale ate ele ale ate ale ete wfe abe ate afoot ate of. 
PR ARAL EL AL ER ALANA EN EN CR AR ER ER ER ER ER ER EN EVEN EL ER ER EN GLEN EL ED ERED EN ER ER EVEL ER EDEN EL EL ELEN ED ED EVER EN EL ELEN EL ER ELEN EVEN ELEN ED EL EL ELEN EL ENED CD ED ED CD 
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INTEGER FUNCTION NVIWKCFX,FY,FZ,X1,¥1521,X%3 ,1B, JB KB IE Eke 


Sep ae ee at et Se i 
detects de ete RERRRERRERERRRRRRRRERRERRRRRRRRRRRRRRRERERERRERRERERRRRKERRR RRR 


*USED ONLY IN SUBROUTINE VIEW 


IMPLICIT DOUBLE PRECISION (Ash. O>2 
COMMON/R4/XC(40) , YC(40) ,ZC( 40) ,XS(40) ,YS(40) ,ZS(40) ,DXXC(40), 
& DYYC(40) ,DZZC( 40) ,DXXS(40) ,DYYS(40) ,DZZS(40) 


NVIWX=0 
TPARA=(X3-X1)/(FX-X1) 
Y3=(FY-Y1)*TPARAtY1 
Z3=(FZ-Z1)*TPARA+Z1 
IF (Y¥3.LE.YSQE) -AND- Ys GE2Ys(J5 ennEN 
IF (Z3.LE-ZS5( KE) AND. 25. GE. 25CK3) anv iw x —1 
ENDIF 


RETURN 
END 


Pe PS ee ee See See Se See Se ee ee en ee ee ee a ee ie ae ee ae ee ee ee ee ee ee ee ee ee ee ee ie ee ee ee ee ee ee ee ee ee ee ee ee ee ee Oe ee ee ee ee ee ee ee Oe Oe ee ee Oe ee ee ee ee ee ee 
GR GR AN GR AR GR GD GD GR GD GD GR ER GR GR GR GR ER GR GR GR GR FR GR GR GR GR GL GR ER GR FR GD GD GD FD FT GD ED GL GD GD IR ER ER FE GR FR GL GR GR GL IR GDL GL GD ID GU GL GDL EN IL GT ED GR EDEL ED GL EL ED AN 
whee wher whe whee wlie whe whee ales ale whee whe whee whe ale whee whe whe whe ale whe whe whee whe whe whe ake whe whee whee mle whe wher whe whe whee whee atic whee whe whee whee whic wher whe wher whe whe whe whe whe whe whe whe whee whe ale whe ale als ale whe whe whe whe ale ales whe whe whe whe ale ale 
FR GR GRADER GR FR SY EV GRID GD GUST EN SY AN GR IU ER FR IR FR GR GY GR GU GL GD GR SN IR GR GN GR GN GE ER GL GL ER GD GR GD ER IR GD GC GD ID GU GRID GULL IC GD ED CRUEL EL IV ID SEER ED ERATED ERED FD 


INTEGER FUNCTION NVIWY(FX,FY,FZ,X1,Y1,2Z1,Y3,1B,JB,KB,1IE,JE,KE) 


alee hee whee wher hes whee whe whe whe ale ake ale ate ale whe whe als ake ake als ale ate whe whe whe ahs whe ale whe whe whe whe whe whe whe wheats whe whe whe ale heals whe als whe abe ahs ate ake whe ale ale ahs ala whe whe ale whe ale whe ales whe whe whe whe whe ale ole al. ote ale 
CN FR GR GR ER EL OR FR FREY AR IR RFR GD GD GD GR GR GR EN GD GR GD GR ER GRID GD GD FR GL IR EN FR EN GR GD ER GD ED ED ER ER GR GT ID ER GLIDER GR IR GL GR GR FRET EL GD GV IRF ED IR IDT ID ID FLED ID EN 


*USED ONLY IN SUBROUTINE VIEW 


IMPLICIT DOUBLE PRECISTONS ASH O27) 
COMMON/R4/XC(40) ,YC(40) ,ZC(40) ,XS(40) ,YS(40) ,ZS(40) ,DXxXC(40) , 
& DYYC( 40) ,DZZC( 40) ,DXXS(40) ,DYYS( 40) ,DZZS(40) 


NVIWY=0 
TPARA=(Y3=Y1)7 (Fay) 
X3=(FX-X1)*TPARAt+X1 
Z3=(FZ-Z1)*TPARA+Z1 
IF (X3. LEsxS( TE) AND X3- GE -Xo( 1B) eHEN 
LF 1(Z3-LE - ZS (KE) GANUE 23 GEaZoCheoD any int 
ENDIF 


RETURN 
END 


he tents ate ale wks ale ale ale ale aks aloals ole als als atoaks als whe als ale ale ale ale ale ale ale ale ale alwalsate ale ole ale als aleals ale ale ale als ale als ale ale als ale ole ole toate ale alowte ale ats ale ats ale ats ale ale ale lo aiontonls als elowls 
GR AR AR FD GR ERED GV GD ER GD ED AL FR GU GD ERED AD AL GR GD FRED EL ER EL GR IR ER AD GL GRID ER FR FD GD GL ODER AL ED ER ID EL EL AD CD FRED AREY EL EL OR GR ED FUEL GD AD ER FR CR IL ER ee Ed OD ED FD 
Snir le air reir ice irae ror oe Ine ono ior or er reir reir ier rider ler lr ke roe dor dr wane rel er ide rol ier rl lr ir oe tree ror cole i one tricolor otro ir he ie rk oo 
OR FR ARAL ER GE AL AD GD AY GD ED AD ED GLAD GD ADLER GR SE GR AD ER ER ER GR GL GD GD GR GR GL GD GR GR GR ID ED IN FR GH GD FR AD AD AD AD AR ARAL AD AL ED OO EDEL FY ENED ER EL ELEN FD ED ER AD EL OD FO 4D 


INTEGER FUNCTION NVIWZCFX FY.PZ,X1,%1, 21,235 18,JB KB Ue oleae 


FR GL OY ED AD AR AR ER ERED ODER ER ER ED ED DED EO EL EL ED ATEN ER GD ED FEAR EN EE ER EDEL EDEL ED GL ER AD ER ED AL GL EL ED ED ER ER SUES ED FD ER EL ITED ED EL FL EDEL AL FL FY BLEDEL FD ED ED AY 


*USED ONLY IN SUBROUTINE VIEW 


IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
COMMON/R4/XC(40) ,YC(40) ,ZC(40) ,XS(40) ,YS(40) ,ZS(40) ,DXXC(40), 
& DYYC(40) ,DZZC(40) , DXXS(40) ,DYYS(40) ,DZZS(40) 


NVIWZ=0 
TPARA=( Z3-Z1)/(CFZ-Z1) 
Y3=(FY-YIJeTRARAT Ya 
X3=(FX-X1)*TPARAtX1 
IF (Y3.LE2YSCIEIPANDE Yor GE YS Be iin. 
IF (X3. LE. XS( TE )-AND. X3.GE.xXs@aB 1 [waa 
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RETURN 


ENDIF 
END 


PAY 


#2 


FR GR FV FD FL GL EV FL FR FH FR HR YL 4D GD FD 


whe whe abo ale ale ale ale afloat teats abe ale ale ale ake ale ale 


ee 


ar 


er 


he ache whe ake ale whe ole ale 


FR FR FR ER FR FE FR 


ale alo alo ale alools aloats ate ale ote 


GR RV FR 4B EB FR FY FR FX FB 


FUNCTION S 


OD 4B FR FR FR FR FE OR ER FD 


SINGLE LINEAR INTERPOLATION 


ok 
ae 


IMPLICIT OusEE PRECISION CAsH,O-Z) 


SILIN=(V1*D2+V2*D1)/(D1+D2) 


RETURN 
END 
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APPENDIX C. PROGRAM ISOTHERM 


This program generates two dimensional isotherm plots using the National Center 


for Atmospheric Research (NCAR) Graphics software, from three dimensional temper- 


ature field data produced by program FIRE. 


sk ook 


of 


sk och ck oc 


PROGRAM ISOTHERM 


ahr whe whe bes mer whee ale whe whe ale wher atin alee whe ahr wher wher whee whe whee whe whe whe ake whe whe whe ale abe ale ake ale ake whe aha ake ale afe ale whe ale ale ale ale wloale whe ake whe whe ale ale ahs whe whe whe ahe ake ake whe whe ale ake ake whe abe ake ake ale whe ake 
ZR FU CU AL GN EN EN EN SR GN GR FE EE DON GE GD ER GD ED GN GD GH ED GD EL GL GD ED EL EDEL EL GL ED EN GE EET EN GR EDC ELGV EL GLEN GL EC GL EC EC IL ECOL GD OD ON EN EL FL EVEN GLEN BRET EDN ON @ 


¢ > ee 


This program uses NCAR GRAPHICS to calculate and plot isotherms in 
an arbitrary two dimensional section with uniform grid spacing 
from a non-uniform three dimensional grid using linear interpola- 


tion “Toutines. 


Isotherms are plotted using 14 equal size color 


ranges based on the maximum temperature in the 3-D grid. 


2 


os a a 


ay 


aes wf at whee whee okie lie wher als whe whe whe ale whe ale ake ake ake ake ale whe whe ake ake afe whe ake aheake whe ake whe ake ake ahe ake whe ake ake afe ake ake ake ahe ake ahe afe ake ale afe ake ake afe ake ake ake ae whe ake ake ahs ake ake ake ales ale afe ale afe ake ake whe ale 
FD ER EDR FR FR FR FR FR OR FBT FR FB FR FH OR FB FH OR FR FB FH FB OD FR OB OH OD OD FH FR FB FB FH FR FH FH EB FB FR GB Gd FH OD FH FR GH GH OD GH OD CB FH FH OR FH GB FR FR OD FH GR ER FB FB FR FB CH FR FR FR FD FB 


*Variables used in this program. Arrays names are followed by left and 


Sh och och chock ook ck ook ck ck chook ck ch chock ch ob ch ch och ch och och oth ohooh chock ck ok oF 


Fight paremehesiss ()- 


(NOTE: some variables used in the plotting 


routines have been specifically omitted from this list) 


bth 
Cx 
cy 
el 
CZ 
eu 
re 
eyail 
E22 
dx 


dy 


az 

h 

ye ene 
iSEn 
ixx 
jplot 
jscn 
jyy 
kscn 
ncrmax 
ight 

nj 

nk 
nstop 


Non-dimensional compartment breadth (X-direction) 
Interpolation parameter used to generate 2-D grid 
Interpolation parameter used to generate 2-D grid 
Interpolation parameter used to locate desired 3-D section 
Interpolation parameter used to locate desired 3-D section 
Interpolation parameter used to generate 2-D grid 
Interpolation parameter used to generate 2-D grid 
Interpolation parameter used to generate 2-D grid 
Interpolation parameter used to generate 2-D grid 
Non-dimensional 3-D grid size inside compartment, X dir. 
(redefined in SUBROUTINE SCTN as non-dimensional uniform 
grid spacing in the X direction for the 2-Diplor) 
Non-dimensional 3-D grid size inside compartment, Y dir. 
(redefined in SUBROUTINE SCTN as non-dimensional uniform 
grid spacing in the Y direction for the 2-D plot) 
Non-dimensional 3-D grid size inside compartment, Z dir. 
Non-dimensional Z length of compartment to model 

Number of grids in X direction of 2-D grid 

If >0 hold X constant, else =0 

Number of X grid points in "xxs" array 

Number of grids in Y direction of 2-D grid 

If >0 hold Y constant, else =0 

Number of Y grid points in "yys" array 

If >0 hold Z constant, else =0 

Maximum number of contours 

Number of cells across compartment, X dir. 

Number of cells across compartment, Y dir. 

Number of cells across compartment, Z dir. 

Control variable to terminate program 


ta 


x 


XX 


chock chock chock chock ob ck ob chock ch ckoob oh oh ck book ook ook ook ck oot oct 


nview 


t() 


temp() 
et ie 
time 
tmax 


So ®) 
twal 
wth 


pone ad 
eo oa ge 
xs() 
xscn 
xss() 
xtime 


Kos.) 
y 

yfrnl 
yien2 


yscn 


yy 
yys() 
Z25CT 


Input value of desired plot (from SUBROUTINE SECTION) 
Imported array of temperature values 

Ambient absolute temperature prior to fire ignition 
Temperatures of desired section of 3-D grid 
Non-dimensional thickness of compartment floor/ceiling 
Dimensional time (in seconds) since fire ignition 
Maximum temperature in “temp array (redefined in SUBROUTINE 
SECTION as maximum temperature in interpolated 2-D array "tt") 
Section temperatures interpolated to 2-D grid 
Non-dimensional thickness of compartment walls 
Non-dimensional compartment width (Y-direction) 
Non-dimensional X length of compartment to model 
Starting 2-D, X coordinate of section to zoom in on 
Ending 2-D, X coordinate of section to zoom in on 
Non-dimensional grid locations 

X location where Y-Z plane to be taken 

Non-dimensional staggered grid locations 
Non-dimensional time since fire ignition 
Non-dimensional length of 2-D X axis 

3-D grid points to be used as X coordinate in 2-D plot 
Non-dimensional Y length of compartment to model 
Starting 2-D, Y coordinate of section to zoom in on 
Ending 2-D, Y coordinate of section to zoom in on 

Y location where X-Z plane to be taken 

Non-dimensional length of 2-D Y axis 

3-D grid points to be used as Y coordinate in 2-D plot 
Z location where X-Y plane to be taken 


cabs kee eres aakee elas kee eles erhee orlns eles alee whic alo ako abe ober anfes ales oker ofes oles eles whe alee oles okie alec ‘nr alee alee okee oles orker okie alee oles ako okie alas alee oles wlio ale alee alee oles who ale alo oleate alo abe ale ako akee whe ates oles whee ales ales whe ale whe oles ates whe ales a tee oles whe 
RGR OR AR FR IR ER GR GR ER AR GR ER ER EDGR GR ER GR ER SEEN ER ER ER ER FR IR ED OR ER ER OR ER GR IR GEER ED GR GR GEER SR GR ER ER ER FR IL ER ERED IL FD ON FR ODER ITN OD ED IR IRD ED FS ER ER ED FD 


whe ake abe 
eR eR a8 


és aL 
ey over 


G whee ekue alee 
were wty 


Gc po en ee 
oxen ee 


C whee ahs ale 
err wri 


Cc eho hes ahs 
eu eu en 


7999 


INPUT DATA FROM PROGRAM "FIRE" 
call INPUT 


GENERATE GRID 
call GRID 


DEFINE 


DESTRED SECTION 


call SECTION(nstop) 


CHECK IF FINISHED WITH PROGRAM 
if (nstop.ne.0) goto 9999 


* LOCATE 


DESIRED SECTION TO PLOT 


call INTERPOL 


INTERPOLATE TO A 2-D PLOT 
ea ll SCIN 


* DEVELOP PLOT USING NCAR GRAPHICS 


call PLOT 


goto 5 


* LOOP BACK FOR ANOTHER SECTION 


FINISHED WITH PROGRAM 


end 


OO ee Oe ee Se ee ee ee ee ee ee ee ee ee ee ee ee ee PP ee ee ee DP De De ee ee Pe ee OE OP ee ee ee ee ep eee ee ee ee ee ee ee ee ee ee ee 
PR ERED FE ER EL OR FV ID FR GEER FR GR GR IR ER GL IR FR FR GL GEER FE GR IR GR IR ER FR FR ER IR ER FR ER IR IR ED FD GT IN OR FD SHIN GD ER FE GEIL IR IL IR ER IL GR GR GL OD IE ED OR LE EE EL CL Od GD ED OD 


BLOCK DATA 
HARARE ERE RE REAR ERE RER AR RERRERRER AER ER EER RERERRERER REREERERERERREREE 
Ee x 
* The variables IPLOT and JPLOT must be changed in order to vary the * 
* number of grids in the uniform 2-D plot. NCRMAX must be changed to * 
* vary the maximum number of colors allowed by the NCAR plots (NOTE: * 
aL tL 


* 
4 


* NCRMAX must include one value for the default foreground color). 


sf 
ot 


. ¢ OR ed ev ee ed 4d Oh Od 4d Od ¢ 


implicit real*8 (a-h,o-z) 
common/ugrd/iplot, jplot ,ncrmax 
common/sctl/iscn, jscn,kscn,nview 


data iplot, jplot,ncrmax/24,24,15/ 
data nview/0/ 


ae ee whee mbes atee ates abe abe abe ate mio ate ate athe ate ate ate ate ale ate ate als atoato ato ste ste ste ste ste ste ste te te ste te se te te te ce te che le te cto ate Sete he ahs whe ale mle obs toate ale ale atoate abe ate ale ate ate abs ahs abs abe oks ate 
20 OS BS ON ES ON 4S FUER CD SN AE GD EL ER GC ED GL GRAD GLAD ED GU FEEL ERED CD IN GLIDER IN ER GL IL EL GR EX EL GL EDEL EN ER ERIN PR FR IR GL GL AR ER GR GN ER ES AN 4D ED ED OD RED PLSD IL ID OD 


fe este teste se sete st whee whreks ate abe aber abe abe abs abs ake abe whe ate ate ate atone 


BEL FR FR 4D FR FR FR EL GD FR FL FR FB FR 4 EO FR FR FR FR FH FR CR FD FD ee ee au ee OX CR ER ER FR CR FR ER ER CR FR FR FD = ee ee seated: ae ¢e ee a #e a ae @e #e 


implicit real 36) (a-ho=zZ) 

common/ fetn/ xtrundextin2, veo tne 
common/sctl/iscn, jscn,kscn,nview 
common/sct2/xscn,yscn,zscn 
common/bl2/x,y,h,tflr,twal,ta 





99 stn & oc 
print 97 
print “) sentes For: | 
Print oem 
print. eo Finished with program’ 
DE int © eel Plan View (X-Y Plane) ' 
Print): ne? a Profile 
print... -eec YZ roti le: 
aiineen. le. 0) goto 97 

= pe shonee a. 4 Enlargement of portion of previous plot' 
prints 


+ 


print *, ‘Enter the desired isotherm plot:' 
read (*,*) nview 

nstop=0 

xfrn1=0. 

xf rn =e 

yfrnl=0. 

Vern2— ie 


{- 
f- 
{. 


c *** END PROGRAM 
if(nview.eq.0) then 
nstop=9999 


a 
¢ 


C *** PLOT AN X-Y PLANE (a.k.a. Z section) 
elseif(nview.eq.1) then 
iscn=0 
jscn=0 
kscn=1 


xscn=0. 


yscn=0. 
10 primers 
y} fFormatrlix.da/ IX ,a,f5.2,4) 
Prine, 
& ‘Enter height of desired view plane in feet above the floor’, 
& n@rloore= 00 sGer ling =" 9h): 


yead (*,*) zscn 
MaCZSenmre Ca Or. 25cn. cf bh) then 


: Prante 
print 5,'Input value must be between 0.0 and ',h 
5 format (1x,a,f4.1) 
Drigtecs (ry again. 
- go to 10 
endif 


@ *x* PLOT AN X-Z PLANE (a.k.a. Y Section) 
elseif(nview.eq.2) then 
iscn=0 
jscn=1 
kscn=0 
xscn=0. 
zscn=0. 
20 print ~* 
DPrintc../, 
& Sniterevdistance wainett) of desired view plane from , 
& ‘the left wall (Left Wall = 0.0; Right Wall = ‘,y,'):' 
read (*,*) yscn 
PeCvscnelt.0..or-yscn. gt. y) then 
7 print * 
print 5,'Input value must be between 0.0 and ‘,y 
Brine, (ry again. 
26 to -20 
endif 


Omer PLOL A Y-Z PLANE (a.k.a. X Section) 
elseif(nview.eq.3) then 
iscn=] 
jscn=0 
kscn=0 
yscn=0. 
zscn=0. 
30 print 
Print 7. 
& ‘Enter X distance (in ft) of desired view plane from ', 
& ceemileteeuallCLettewall» =) 0.0. Right Wall = °,x,'):° 
read (*,*) xscn 
If(xschit.0..0n.xsch.et.x)) then 
prince. = 
print 5,'Input value must be between 0.0 and ',x 


prinicm) lryoapaing 
go to 30 
endif 


c *** ZOOM IN ON A PORTION OF THE LAST PLOT 
elseif (nview.eq.4) then 


I53 


ate 
ry 


40 prime 
print *,'Enter the X & Y coordinates (expressed as a decimal' 
print *, percentage of the whole plot, i.e. 25%=0.25) for the 
print *,'lower left corner of the area to be enlarged.' 
read (*,*) xfrnl,yfrnl 
1f(xfrnl.It.0..6r x finlect iee ome 

& yfrnl.l]t.0..er,yirnl ge lee eemen 
print *,'All coordinates must be between 0.00 and 1.00!' 
print *, Please "eerrecteanderecnter a 


goto 40 
endif 
45 pestgye 
Deane * ‘Enter the X 6 1 coordimates (expressed as a decimal’ 
prane *, percentage of the whole plot, i.e. 25%50.25) for wtmem 


print *,' upper right corner of the area to be enlarged.’ 
read (*,*) xfrn2,yiunZ 
1f(xfrn2d- 1t.0ecor, xtum2- ee eo oe 
& yirnZ.1t.05.0r-yfin2.ot 4 penen 
print *,'All coordinates must be between 0.00 and 1.00!' 
print *,'Please correct and reenter.’ 
goto 45 
endif 
ut (xfirn2. less brn liom vir e be yr eet nen 
print (©. (loa ies ea ee 
‘These coordinates must be greater than ',xfrnl, 
and. -sy Grilemetrespeeta elas 
print *,'Please correct and reenter.’ 
goto 45 
endif 


Ro 


C *** ERROR ON ENTRY OF NVIEW 
else 
print * 
print *, Incorrect response! Please enter 0 - 4' 
goto 99 


endif 


return 
end 


wakes anhes eabes aalies ahi tales abee Fan eles wakes ates tae wales alee elie antes ehee wafee eles wlir wlir enter enbae: 
FR GN GN GR ER GR GDL GN GR GR GR ER GN GN GN ECG ERED EN OD ON 


SUBROUTINE INPUT 


whe abe mtes ato mte atc ate mte whe mhomter ater atie ates whe alee ates mle alee mtes whee elie wheats whe mte wheats whe mts ules afer ales mbar atie mter ater whe mtee ates tes fee mbes eer tie eter lie whe eles ates wbee ates alee ales fue afie ater ater atic mates whe ates eles abe mle has whee aker mle ohio mie 
FR GL CV ED ENGL ID EL DEL GD ED ED ED ID ED ODED OD EN OD @yeu en wt, dees ON VON ER AN cs CR PREV OR EL ED ER EL EV Ed ED 4d 


CAAA AM AMA Am A A ea) eu es 


- 
fF 
ob 
fF 
3 
>b 
fF 
fF 
ob 
F 
3 
ob 
ay 
ob 
bE 
fF 
fF 
ob 
*t 
fF 
ay 
f 
ob 
ob 
ob 
ay 
ob 
oF 
ay 
ob 
> 
ay 
ob 
ob 
*b 
+ 
ay 
+ 
*b 
of 
- 
3 
ob 
[. 
f 
fF 
ob 
of 
f 


¢ 
*! 
¢ 
a 4 
e ? 


ot 


a 
@¢ 


tock ck ot 


RRR REE E RRA RAERR REE RRR ERERER ER ERERER ER BEEREREREREERERREERREEREERE 
inplvetemneal 6 s(a-hnoo7,) 
common/bl1/dx,dy ,dz 
common/bl2/x,y,h,tflr,twal,ta 
common/b17/ni,nj,nk 
common/data/t(25,25,15),temp(24,24) ,tt(24,24) ,xtime, ttmax 


C «** READ IN DATA FROM EXISTING DATA FILE 
open( 10,file= fire dat ~status= oldu 


154 


1001 


Cc fe clecte 
riwts 


ai 


read(10,*) x,y,h,tflr,twal,ta 
read(10,*) ni,nj,nk 

rewind 10 

close (10) 


open (unit=9,file= plot.data ,status= unknown ) 
read(9,1001) xtime,t 

foumat Cogley.) 

rewind 9 

elose (9) 


DIMENSIONALIZE TEMPERATURES IN DEGRESS CELSIUS 
do 77 i=l,nit4 
dor/77 j—leng ts 
do 77 k=1,nkt4 
tCledakhy=tacteis4.k)/156-=273.16 
continue 


return 
end 


hs eahas hee aches aches aches wher alien elie anlar anlar antes anlar mhir wlio wlio wlio ahs anlar antes chee whee mle luo antes antes anlar wl» antes anlar antes antes anhas anlar aches clas aches anlar te! ap anlar antes antes antes antes wlan anlar enhas anlar ankas anlar anlar anlar whee leo antes wl ates alas wher mle mhee we! oo ate ales anlar aches antes anlar ater wher alec alas 
FR. ESA ODER AL GL GR ER GL EL GR GL GS FR OS RGR OR GR GR GR GS OR GL GL OR FR GE ALES FE OD ED GS FL CD OS IR ER AL OR GD GL GL GL GT GL ER GD FS FR GR GR GU GR GL OR GT OR GDL GL IL OR GR OR GL GS CR FD Od OR 


SUBROUTINE GRID 


othe aches aches enhas aches anhas mhie mle alee wher eles ates hie whee aloo alee alee ates wlio ale wlio mlio ales alas ates ahes alas antes antes antes aber alas enhas antes antes alas antes anlar acter ahee antes to! om ates ales wl ao ales anes el co aches elas alee o! eo mle aches mler ales whee alas wl oo mle whee wo! oo mlee akes alee ates mleo wlio mleo mle ales ates 
PRON ON GN EN EN FL EX GL GN GDL GR GL EL GR CRY AL ER GLEN ED GD ER GL GR GR GL OD OD IU GY GO GD OD OD CU GDL GD GU ED OR GD ELON OR GD GRO’ GD EN ER ER GD PRT GD IN ERED EN GS ER GR GLEN ER GL ON ERED ON 


Gg whee who alo 
wert wis 
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10 


2 


14 


implicit real*8 (a-h,o-z) 
common/r4/xss(40),yss(40) ,zss(40) ,xs(40) ,ys(40) ,zs(40) 
common/ Dilly dx dy ,az 

common/b12/x,y,h,tflr,twal,ta 

common/b17/ni,nj,nk 


GENERATION OF THE GRIDS 

dx=x/(float(ni)*h) 

dy=y/(float(nj)*h) : 
dz=h/(float(nk)*h) 


CALCULATE XSS,YSS,ZSS (COORDINATES OF STAGGERED CV'S) 
do 10 i=3 nit3 

xss(i)=(i-3)*dx 
continue 
xss(2)=xss(3)-twal/(h*12.) 
xss(1)=xss(2)-twal/(h*12.) 
xss(nit4)=xss(nit3)+twal/(h*12.) 
xss(nit5)=xss(nit4)+twal/(h*12.) 


do 124j)=3enj+3 

Vos Gi eis) *dy 
continue 
yss(2)=yss(3)-twal/(h*12.) 
yss(1)=yss(2)-twal/(h*12.) 
yss(njt4)=yss(njt+3)+twal/(h*12.) 
yss(nj+5)=yss(njt+4)+twal/(h*12.) 


do 14 k=3,nk+3 

zss(k)=(k-3)*dz De 
continue 
Zest 2)—255(3)-tflr/(h*12.) 


— 
ta 
tsi 


zss( 1 j=zss(2)-ttflr/ (h12. ) 
zss(nk+4)=zss(nkt+3)+tflr/(h*12.) 
zss(nk+¥5 )=zss(nkt4)4telr, (ne) 


C *** CONVERT TO CENTERED GRID FOR USE BY PROGRAM 
do 2081=15 nite 
xS(1)=(xSS( JxssCit lp) 2 
20 continue 


do 22 j=l,njt4 
ys(jJ=Cyss(j)tyss(jt1))/2 
22 continue 


do 24 k=1,nk+4 
zs(k)=(zss(k)+zss(k+1))/2 
24 continue 


return 
end 
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SUBROUTINE INTERPOL 
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This subroutine interpolates the 3-D section into the desired 2-D 
section. It is a necessary step since any arbitrary section would 
fall in between two grid points and must be linearly interpolated. 


a es a a 
tk ck och ook ob 


hee whee ake ete abe abe abe ake ake ale ale ale abe ale ate ale ats abe ale als ale uts abe ob. ate ol. tb ale ale ats alsats ale ats ale aleals abe ale abe ake ake ale ahealke ala nt abe ale alent ale ub ale ale ats alsals at ale ale als ale ats ale leaks ahr ats als le ale 
PR FL AN OD ED GR GV ED EL GR FD ER EN ER GL ER FR EVEL EL BV EVER FREY AE EDEL GL AE ER FD EL EL FR GL FD OD OR AV FV FRED FD FH EN FR PR EL FR ODED ARERR EDEL ADEN AN ED EY FD EDEL CH 4D ED ED FD FD 


imp licat. real~67a-t.o- 7) 

common/ lmt1/ixx, jyy 

common/ lmt2/xx,yy 

common/sctl/iscn, jscn,kscn,nview 
common/sct2/xscn,yscn,zscn 
common/data/t(25,25,15),temp(24,24) ,tt(24,24) ,xtime,ttmax 
common/r4/xss(40),yss(40),zss(40) ,xs(40) ,ys(40),zs(40) 
common/bl1/dx,dy,dz 

common/b12/x,y,h,tflr,twal,ta 

common/b17/ni,nj,nk 

common/ngs/xxs(40) ,yys(40) 


C *** NONDIMENSIONALIZE NECESSARY VARIABLES 
if(nview.ne.4) then 


xscn = xscn / h 
yscn = yscn / h 
zscn = zscn / h 

endif 

wth =y /h 

Dehe—s xan 


C w«* LOCATE SECTION OF INTEREST 


C «xx X SECTION 
If (sen .ne- O)ethen 
do 10 j=2oni7t4 
if (xs(i) .ge. xscen cand. xs(i-aeee lt. xsen)etnen 


Po l=. 1 
endif 
10 continue 


ete soe) = xXScn) / “(xS(i¢1)) --xs(igi-1)) 


C2 = 41-161 


c *** INTERPOLATION DONE HERE 
do 20 j=l,njt+4 
do 20 k=1,nkt+4 


memmlenike) ) ——C lam, (Cred oink) tcl * Cligi. j,k) 


20 continue 
ixx = njt+4 
payee how 
XX wth 
yy = 1. 
do 22 i=1,ixx 
xxs(i) = ys(i) 
22 continue 
do 24 j=l, jyy 
Syeee= 25 (i) 
24 continue 
endat 


C *** Y SECTION 
if (jscn .ne. 0) then 
do 30 j=2,njt+4 


PEC ys( jg) ee. ysen sand.) ys(j-1) .1t- 


a2 = 
endif 
30 continue 


yscn) then 


cl = eee = yseu)e/ ysyer = yst jgis i) ) 
aan @ 


€2.=7 Iz. 


c *** INTERPOLATION DONE HERE 
do 40 i=1l,nit4 
do 40 k=1,nk+4 


Benpii.k) = cl =~ tCasqyet-1l,k) + c2 * t(1, }gi,k) 


40 continue 
ixx nit+4 
jJyy = nkt4 
xx = bth 
Noa 
do- 42 1=1,,ixx 
xxs (i) = xs(i) 
42 continue 
doe )5 lo yy 
sig) = = 25) 
44 continue 
endif 


Gexx*= Z SECTION 
iteiksen ene. 0) then 
do 50 k=2,nk+4 


MEmCZs). ce. 2Zsem cand. zs(k=1) .1t. 


kgi =k 
endif 


zscn) then 


50 continue 
cl (zs(kgi) = zsen)*/ (zs(ken) = 2st kero) 
eZ Le ecu 


*“** INTERPOLATION DONE HERE 
do 60 i=l,nit4 
do 60 j=l,njt+4 
temp(i,}) = ¢l * t(i,j,kei- 1) eel eG 
60 continue 
ixx = nit4 
jyy = njt4 
xx = bth 
yy = wth 
do. 6244 — le ixx 
xxs(i) = xs(i) 
62 continue 
do 64 j=l, jyy 
yys(j) = ys(j) 
64 continue 
endif 


*w*e* DETERMINE MAXIMUM TEMPERATURE ON SECTION 
tmax-= 0. 
ae 7 0s i=l xx 
do 70 j=l, jyy 
if (temp(i,j) .gt. tmax) tmax = temp(i, j) 
70 continue 
print *,' THE MAXIMUM TEMPERATURE IS’ ,tmax 


return 
end 
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SUBROUTINE SCTN 
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uniform grid for plotting purposes. 


pe ee a 


viewing. 


In this subroutine the non-uniform grid is interpolated onto a 


The routine has the option of 


"blowing up’ or "zooming in on" a certain portion for detailed 


+} ook ck ook ook ook 
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implicit real<8 (4a-h,o-Z) 


common/data/t(25,25,15),temp(24,24) ,tt( 24,24) ,xtime,ttmax 


common/Ilmt1l/ixx, jyy 
common/\lmt2/xx,yy 


common/r4/xss(40),yss(40),zss(40), 


common/ngs/xxs(40) ,yys(40) 
common/ugrd/iplot, jplot,ncrmax 


xs(40) ,ys(40),zs(40) 


commen/fctn/xtraloxtrnZ2-yernleyirne 


¢ == DETERMINES BINT TS OP. INTERPOLATION 


xlmtl = xfrnl * xx 
xlmt2 = xfrn2 * xx 
ylmtl = yfrnl * yy 
ylmt2 = yfrn2 * yy 


dx 
dy 


Coltitveaex incl) / floamiioler.— 1) 
(yimeceoevimel) / tloatrciplet — 1) 


do 20 i=l,iplot 
do-2Z0 j=l plot 


C *** LOCATE SECTION AND DEVELOP INTERPOLATION PARAMETERS 
= XEnpesi ime) + dx’ =%float(i-= =.) 
YVEempe-yyimtl) tdy * float(}) = 1) 
- do 10 11=2,1xx 
Pees Cid). 7 Cemex emo did. xxotirol |: lia xtmp) then 
alle = Ava. 
endif 
10 " continue 
CX. = (CexXsGin yp tmp) / 9CXxXS( 1119-/- xxsCii1)=1)) 
fey Sy EES gay 
if (yys(jj) .gt. ytmp .and. yys(jj-1) .1t. ytmp) then 


dees 
endif 
1a) continue 
Cy ee ys Giil) oeyemp)./ Cyys(j jl) =“yys(jjl-1)) 
C= 4G Xe. CY 
GlZs—4ex~ = (15, —scy) 
Gol =F lt Cx) = Cy 
Cle —wiolew- Cx ie (bho = cy) 


C *** JNTERPOLATION DONE HERE 
CeCe ce lim=e temo ii l—1lsj,l=1) t+ el2 ~ temp( iii-1. 441) 
& ten = temp ( iil.yi ll) e272 temp (iil 41) 
20 continue 


gee DETERMINE MAXIMUM INTERPOLATED TEMPERATURE 
ttmax = Q. 
do 30 i=l,iplot 
do S051 siplot 
Pimiinm@las|)) Act. .ttunax )etemax = tt( 1.7) 
30 continue 
print *,'THE MAXIMUM INTERPOLATED TEMPERATURE IS' ,ttmax 


return 
end 
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SUBROUTINE PLOT 
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* a 
* This subroutine plots the isotherms using the CONRAN routine of * 
* the NCAR Graphics package. ce 
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common/ Ilmt2/xx,yy 
common/data/t(25,25,15),temp(24,24) ,tt(24,24) ,xtime,ttmax 
common/ugrd/iplot, jplot,ncrmax 

common/sctl/iscn, jscn,kscn,nview 
common/sct2/xscn,yscn,zscn 

eonmen, £ctn/xfinl;xtrnZ,ytrnl,yfrn2 


be ale ole 
wer wry 


C wheats ol. 
err erry 


whe whe whe abe ake 
ee ee eu ee oe 


GC whe ale ake 
eu ee a8 
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rrwerwry 
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common/bl2/x,y,h,thin cual ea 
real*8 t,temp,tt,xtime, ttmax xxi yy xtenl xeon ame y eee 
real*8 xXScn,ySen.ZSen. x.y see eee wa eee 


dimension zdat(24,24),rwrk( 1000), iwrk( 1000) ,iama( 120000) 
dimension iasf(13) 

dimension xcra(1000) ,ycra( 1000) 

dimension iaia(10),igia(10) 

dimension lind(14) 

character*10 1llbs(15) 

character*5 sec, elev 

character*45 title 

characters4 xl. xl2 yin 


DEFINE EXTERNAL SUBROUTINE TO SET COLORS 
external COLRAM 


SET PARAMETERS REQUIRED BY NCAR GRAPHICS ROUTINES 
data 1asf£/135717 
datas lind/2;3;4,5,6,7 ,6.9. 10 ie 2a ee 


CONVERT TO SINGLE PRECISION (NCAR WON'T WORK IN DOUBLE PRECISION) ***** 
FIRE TIME WHEN DATA WAS TAKEN 
time=xtime*h/1.0 


SECTIONS LOSELrG 
if(iscn.gt.0) then 
scn=xscn*h 
xzooml=xfrnl*y 
xzoom2=xfrn2*y 
yzooml=yfrnl*h 
yzoom2=yfrn2*h 
elseif(jscn.gt.0) then 
scn=yscn*h 
xzooml=xfrnl*x 
xzoom2=xfrn2*x 
yzooml=yfrnl*h 
yzoom2=yfrn2*h 
else 
scn=zscn*h 
xzoom1l=xfrn1l*x 
xzoom2=x frn2*x 
yzooml=yfrnl*y 
yzoom2=yfrn2*y 
endif 


* SET VERTICAL DIMENSION OF OUTPUT DISPLAY 


ifCiscn,ct..0,0r, sem cteG then 


ndim=14 
else 
ndim=24 
endif 


DETERMINE MAX AND MIN TEMPS FOR ENTIRE 3-D GRID 
cmax = -2.0e20 
cmin 2.0e20 
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whe ale ate ale ate 
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C whe ate 
ee exer 
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ee es en 


C whe whe ake 
irwiwt 


do 10 i=1,24 


do 10 j=1,24 
do 10 k=1,14 
DEGtieieay.) ebsemax) emax = t(i,4,k) 
PeCcGieaiem: FE-cmin) cmin = tr; 1,K) 


continue 


do 20 i=l,iplot 


do 20 j=l, jplot 
Zadtliay) 


continue 


88 1) 


CALCULATE THE SPACINGS BETWEEN CONTOURS 
dc=(cmax-cmin)/real(ncrmax-1) 


RUN NCAR GRAPHICS PACKAGE ***%** 
START NCAR GRAPHICS 
GOPKS (6,0) 


call 
Cau 
Ca 


TURN 
call 
call 
call 


GOPWK (1,2, )) 


GACWK (1) 


OFF CLIPPING SO WORDS WILL PLOT 


GSCLIP 
GSASF 
GSFAIS 


(0) 


(iasf) 


Cl, 


DEFINE COLORS 


eal | 


DFCLRS 


DEFINE VIEWPORT AND PLOT CONTOURS 
call CPSETR (‘VPS - VIEWPORT SHAPE’ ,0) 


if(kscn.gt.0) then 
call CPSETR ('VPB - 
call CPSETR ('VPT - 


else 


call CPSETR ('VPB 
call CPSETR ('VPT - 


endif 
call 
call 
call 
call 
call 
call 
Cali 
call 
call 
call 
call 
call 
call 
call 
eave 


CPSETR 
Choe ik 
Crsr ist 
CRSETI 
GCPSETR 
CPSETI 
CPSETR 
CPSETR 
CPRECT 
ARINAM 
CPCLAM 
ARSCAM 
GSPLCI 
CPCLDR 
GSPLCI 


('VPL 
('VPR 
( 'NOF 
GUCLS 
(Cas 
('LLP 
( 'CMN 
© CHx 
CZdat- 
(iama, 
(zdat, 
(iama, 
(0) 

(zdat, 
(1) 


VIEWPORT BOTTOM’ ,.15) 
VIEWPORT TOP',.95) 


VIEWPORT BOTTOM’ ,.25) 
VIEWPORT TOP’',.65) 


- VIEWPORT LEFT’, .1) 

- VIEWPORT RIGHT’, .9) 

- NUMERIC OMISSION FLAGS’ ,0) 

- CONTOUR LEVEL SELECTOR’ ,NCRMAX) 
- CONTOUR INTERVAL SPECIFIER’ ,dc) 
- LINE LABEL POSITIONING’ ,0) 

- CONTOUR MINIMUM’ ,cmin) 

- CONTOUR MAXIMUM’ ,cmax) 
24,24,ndim, rwrk, 1000, iwrk, 1000) 
120000) 

rwrk,iwrk,iama) 
xcra,ycra,l1000,iaia,igia,10,COLRAM ) 


rwrk,iwrk) 


c *** CONVERT REAL VARIABLES TO CHARACTER VARIABLES FOR PLOTTING 
G7 AND SET COLORS FOR PLOTTING 
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als al. als 
Fv ever 


ateate ale ate ats 
erie ler terry 
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call CPGETI (‘NCL - NUMBER OF CONTOUR LEVELS' ,ncl) 
do 027 a= med 


call CPSETI (‘PAI - PARAMETER ARRAY INDEX',i) 
call CPSETI (‘AIA - AREA IDENTIFIER ABOVE',i) 
call CPSETI ('AIB - AREA IDENTIFIER BELOW' ,i-1) 
call CPGETR (‘CLV - CONTOUR LEVEL VALUES' ,zlbs) 
call CPSETR ('ZDV - Z DATA VALUE',zlbs) 
call CPGETC (‘ZDV - Z DATA VALUE',11bs(i)) 

continue 

call CPSETR ('ZDV - Z DATA VALUE' ,time) 

call CPGETC ('ZDV - Z DATA VALUE' ,sec) 

call CPSETR ('ZDV - Z DATA VALUE',scn) 

call CPGETC ('ZDV - Z DATA VALUE' ,elev) 

call CPSETR ('ZDV - Z DATA VALUE’ ,xzoom1) 

call CPGETC ('ZDV - Z DATA VALUE’ ,xll1) 

call CPSETR ('ZDV - Z DATA VALUE’ ,xzoom2) 

call CPGETC ('ZDV - Z DATA VALUE’ ,x12) 

call CPSETR ('ZDV - Z DATA VALUE’ ,yzoom1) 

call CPGETC ('ZDV - Z DATA VALUE' ,yl1l) 

call CPSETR ('ZDV - Z DATA VALUE' ,yzoom2) 

call CPGETC ('ZDV - Z DATA VALUE' ,y12) 


CONSTRUCT LABEL BAR 
call LBSETI ('CBL - COLOR OF BOX LINES’ ,0) 
if(kscn.gt.0) then 

ca lIOEBEBeRe COr.. 05 . 
else 

call LBLBAR (0,..05,.95,.15,220,14. 123353 tind0 elbsrel em 
endif 


.95,.05,.10,14,1.,.5, lind, 0. lllbs) 15am 


LABEL AXIS AND TITLE PLOT ***** 
X SECTION 
if(iscn.gt.0) then 
title= Y-Z PROFILE (X = ‘//elev// FI.) Al //sec// @she 
call PLGHHOC3..25., titles. Olsao.-- i> 
call PLCHHQ(9.,-6.,'TEMPERATURE (CELSIUS)',.01,0.,-1.) 
call) PLCHHO(10..0. , BREADTHMCGYDIR) 3201.04) - 1-5) 
call PLCHHOC 10%. x1 010ml) 
call PLCHHO(23.; 0. ,x12a0 1 (Oneal) 
call PLCHHQ(.5,11.0, HEIGHT (Z-DIR) ,.01,90.,0.) 
call) PLCHHOC.S,.1.5,.y ld Ola 
call PLCHHOC.S, 23: ,y12,. 0 oro 


C wei Y SECTION 


elseif(jscn.gt.0) then 
title='X-Z PROFILE (Y = '/Jellev//. Bibpedues cee) occ 
call PLCHHO(3.,25. title,-01> Oe 
call PLCHHQ(9.,-6.,'TEMPERATURE (CELSIUS)',.01,0.,-1.) 
call. PLCHHO(10.,0.;, DEPTH (X-DIRD syiGieo 1) 
cal] PLCHHO(1..,0).,x1i,. 010m 


eal) PROHHOC23..00. .x12.001 0.41.) 
eal lPRGHHO(.5.11.0, HEIGHT (Z-DIR) ;.015907.0.) 
call) PREHHO(C +5 1.5 ,yll,.01,90. 0.) 
ea |) PEGHHOGs> 2a. yl2,.01-90. 0...) 


C *** Z SECTION 

elseif(kscn.gt.0) then 
Pit le=" PHANSVInWN(Z)=— //elev// FT.) AT ‘//sec//' SEC.' 
Cal PePECHHOC 35524" 5 staitle,.015,0.,-1-.) 
call PLCHHQ(8.,-2.5,'TEMPERATURE (CELSIUS)',.01,0.,-1.) 
call) PUCHHOCIO....5, DEPTH (X=DIR) ,.01,0.,-1.) 
Call PLGBHOCL. ,:5,x110. 01, 0..,-1.) 
Cae LCHHOC 23.05.12 0170.,-1..) 
call PLCHHQ(.5,9.0, ‘BREADTH (Y-DIR)',.01,90.,-1.) 
eal) PUCnHOC 5.1.5. v11,,01;90. ,0.) 
call PLCHHQ(.5,23.5,yl2,.01,90.,0.) 

endif 


C *** DRAW BOUNDARY AROUND VIEWPORT 
call BNDARY 


c w** ADVANCE FRAME FOR NEXT PLOT 
call FPRAUE 


C *** FINISHED WITH NCAR GRAPHICS 
call GCLRWK (1,1) 
call GDAWK (1) 
call GCLWK (1) 
call GCLKS 


return 
end 
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SUBROUTINE DFCLRS 


chee aches aches whee whee See when ele eheo anlee whee hee wlan aha eles alee olen eler alee alee whee eke whe elie whee ele wo! ae elke eker when alee eles lhe kee elie ale eter alee alee eles alee etee ales alee whee ale alee alae alee alee enlie elie ete entee eles elie elie whee whee hee wl ae alee alee elie elie alo whee elie elie whe ales ato 
FR GR OD OD FR ED ED GR GD ED CD GD ED FDL ED GY GY ED GE EDEL FR ER EL GV GR OV EL GL FD ED EDL GD ED ADIN GL EL GR GV GD FD CVG IL EDV FLED FE GR CD FL GR GL EL FD ETI LED IL GD ED FL OD EDEL FEED FD ED 


* Define colors using Red-Green-Blue (RGB) triples. * 


ce hae wale when wale whan wher when wher wn whirls whan whan hen when nhen elin whi whee whee when whic when wher elie elie elie elie whee when nes whee ha wnten elie rates wolen eles anteo when ehin whee when entes ehen woh wahen anteo when whee when when wlan ebeo alee mle See whee elie wlan alin alin wlan ater whee when wlan ates ate als ato 
OR ERED ER ER GR GD GD FR ER ER ER ER AL EL EL GL ER EL GDL EL EL GR GV ED FD ED GD FLED FR GL ED GL ER EL EL FRED ER ED ER FR EL FL EL EL GL ER GL ED EL FR EL EL EL EDL ED OD FR ER ED ER ED FEEL ER AL ED ED FD FR 


dimension rgbv(3,15) 

data rebv, <0. 00-0<U0"0.. 0070-0050 .000.00,0.00 0.00.0. 70, 
ROC MO2 OO malo mOMUO 20. 500, 0a75.0. 000.75 .0.50;, 
BOGr OOO C0 mOnes1.00 0000.41.00 .1 200.0 .00., 
ROU On 5:0 100 lam. 50.,0.00.1).00,0.00,0.00), 
OOM OOO 140enl. 010.0 .40) 02 70),1.00,0.70,1 .00/ 


RO > 
ROO 


c *** DEFINE DEFAULT BACKGROUND COLOR AS WHITE 
call) GSGreCiO, 1.1.1.) 


wae DEFINE REMAINING COLORS 
wax (NOTE: i=l is default foreground color and is set to black) 
do 101-a=2e15 
CallmGsen) (i rebpy( 1.1 jemeby(2Z,1),rgbv(3,1)) 
101 continue 


Pie Sele. 
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FeLEurn 
end 


HAR AREA KEE ERE ERE ERERERRERIK EERE ERR BREE ER EREREERREREERERERREE 


SUBROUTINE COLRAM (xcra,ycra,ncra,iaia,igia,naia) 
Heed dete RE RAR EEE REE ERER ARERR EEREREREREERER EERE RRR AKER 
y * 
* This subroutine is used by NCAR GRAPHICS (call DEFCLRS) to assign * 
* the colors to the contour levels. It must be declared EXTERNAL * 
* before any calls are made to any NCAR subroutines. * 
# * 


RetetkdetdtekkteReRKRRAEEAAKEEEREAREREARRKEKKRERERREERREERREERERRKREERKRKRRKARRR AE 


on ae ee ae 


dimension xcra(*),ycra(*),iaia(*) ,igia(*) 
if]] =" 


do 101 i=l,naia 
1f§Ciaiati1) alt. Ojai =20 
101 continte 
re Cif llesne., (0) eiren 
iflel = 20 
do 102 i=l,naia 
if (igiali) .eqe 3) eit lle= aia) 
102 continue 
if (C1£1l .gt. 0 2 and= 1h) eee ene 
Call GSEAC heGit is 
call) GRA (nceragl xcra,yord 
endif 
endif 


return 
end 


RAR TR REE RRRETRERRERREERREREEREEREEEERREER RE REEEREREREEERERERREEREERE 


SUBROUTINE BNDA 
ze deste 


Hated RHA ERA EEARERARERERARRERKERERERERERERERERERERERREREREEEERRERE 


* 
* This subroutine defines the edge of the plot frame and draws a line * 


x Ole 1tS HlOGat lon: 7 
+: te 


ée 


RITA A EHEEEEREKEEEEREEEREREERERERREEEREERREEREREEEREEEEEEEREEEEEREREEREEREEE 


call PLOTIF (0.,0.,0) 
Cay eG ihn tee Oo) 
call) PLOMb (1-11) 
call PLOTIF (0.,1.,1) 
callie PLO Pia one Oni) 
call PLOlIr C070neo) 


return 
end 
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APPENDIX D. PROGRAM VELOCITY 


This program plots two dimensional velocity profiles, using the National Center for 
Atmospheritc-Research (NCAR) Graphics software, from the three dimensional velocity 
field generated by the program FIRE. 


PROGRAM VELOCITY 


woles whee wher anhes afin anhis ohio whe ate ule ole ale ales whe ates ole ate ale ato wlec abe ole ale wle ule ale ale ate ale wlowle wleate ale ate ole whe ala whe wleate alewle whe ote whe ube whe whe ate oleate ate whe ale ate ate oleate ate ale aleata wlewleate ale ulewle wloatoate 
OR GN GN GN GR EN AN AN GN ER EL EVER FL ID IL ES IL GE AL EL EL AL EL GL ER FE ERAN EL GD PALEY GL ER GR ER GR IN ER GR GR AR GL ED IR ER GN ER FR GR OR EN GLEN ON GL ITED GY ID GE EDEL IL ELON 


@ue au ae 


of 
+ ob 


* This program uses NCAR GRAPHICS to calculate and plot velocity 
vectors in an arbitrary two dimensional section with uniform grid 
Spacing from a non-uniform three dimensional grid using linear 
interpolation routines. 


sk cf of 


sf 


wleeleale ale alealeale ale ale elewle ale oleae aleute wlealealeale alewle alewle alewle wleale ole whe afar wle whe whe ale ale whe whe ole whe ube afe ale alee ale whe ale ale ole wle ole whe ale wlewlewle ulowle cloaks whe whe ole als ale alewle ale ole ole ale 
CR OR ER OR EN ER ED CD rere ler ry #0 eR ee Ae ae AR AL IR EL AL ER AR ER EL EN 4d ER REL EN ER ER ERR ED GL ER CR ENV ER EL EL EN CRED CD rN ¢ an é rie ier ery 


aué #e ¢e 4% au uy 4% #¥ 4% eR vu ¢B #y 4h 


oF 


*Variables: 

* nstop : Control variable to end program 

 xscn : X location where Y-Z plane to be taken 

* ysen : Y location where X-Z plane to be taken 

* zscn : 2Z location where X-Y plane to be taken 

*  iscn : If >0 hold X constant, else =0 

* jscn : If >0 hold Y constant, else =0 

* kscn [te Wsnolda, constant, else =0 

* xfrnl : Starting 2-D, X coordinate of section to zoom in on 
Seeexirn2 <<; Ending 2-D, X coordinate of section to zoom in on 

* yfrnl : Starting 2-D, Y coordinate of section to zoom in on 
feeeyirn2e  : Ending 2-D, Y coordinate of section to zoom in on 

eee ) : Dummy variable necessary due to format of input datafile 
* ul) : Non-dimensional input value of X component of velocity 
wv) : Non-dimensional input value of Y component of velocity 
*x w) : Non-dimensional input value of Z component of velocity 
* iplot : Number of grids in X direction of 2-D grid 

wejploc : Number of grids in Y direction of 2-D grid 

on Xx : Non-dimensional X length of compartment to model 

con ¥. : Non-dimensional Y length of compartment to model 

* h : Non-dimensional Z length of compartment to model 

iam tilr : Non-dimensional thickness of compartment floor/ceiling 
* twal : Non-dimensional thickness of compartment walls 

* ta : Non-dimensional ambient temperature 

* dx : Non-dimensional 3-D grid size inside compartment, X dir. 
* dy : Non-dimensional 3-D grid size inside compartment, Y dir. 
* dz : Non-dimensional 3-D grid size inside compartment, Z dir. 
* ni : Number of cells across compartment, X dir. 

* nj : Number of cells across compartment, Y dir. 

* nk : Number of cells across compartment, Z dir. 


st 


nview : Input value of desired plot (from SUBROUTINE SECTION) 


whe whe ate oleate alo wte ale ale eleate ale aloatoaloats aloate aleale ate aleole ale ale ale aleate cloaks ale ale ate atc ate ate ake ale aleatoaltesaloateatealewlealts ale aleateate loots ale ale lsateole als lealeats ale 
VFR FR DV ED FV FV FL EV FD FR ED EDT FR FR EVIL ER FRET FE EE FD ED EL ER FR FR FL ED FD GD FR FD FH ER ER IRL FL EDM FL_ ED FV IDV ED ID FV ED ID FL FH EV EVER FH FH FH FRED ER EL FR FH FD 


ot 
ot 


whe le wle ube ate ale 
AR EVID ONL FD AE 


C *** READ IN DATA GENERATED BY PROGRAM "FIRE" 
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call INPUT 


C *** GENERATE GRID 
call GRID 


C *** DEFINE DESIRED SECTION 
5 call SECTION(nstop) 


C *** CHECK IF FINISHED WITH PROGRAM 
if (nstop-2t.0) cotosgo72 


C *** LOCATE DESIRED SECTION 
call INTERPOL 


C **%* INTERPOLATE TO A 2-D PLOT 
call SCTN 


C *** GENERATE VELOCITY VECTOR PLOT USING NCAR GRAPHICS 
call PLOT 


C *** LOOP BACK FOR ANOTHER SECTION 
goto 5 


C *** FINISHED WITH PROGRAM 
9999 end 


whe ahs alss ales ales ales als ats ale als ates ales als ale ales ale ake als ales ale ale ales mio mio alemte alsals ale als als als ale mio wlio wie ale ales ales ales abe ales als abe ales als als atsats als alewta ale alentoats alsealselsals alsalseals alseals alsales alsals ale als ale 
FR FR EL ER ED EDV ED FL EVER SV EDV EDV SV evorvseds od ere . Pry x ev ed ov ry . 


# €2 @B #8 4B 4% % FD & BB €B Fb FB FB FO FB FB FE FH FH FH O ex #e #% ¢ Fe #2 9 4d ¢ ue ODED. FRX XY EDX FR FR FB 


BLOCK DATA 


hs eke han hn eke fees wn hes wher hes les wher kis ales wher akis mk his wher ks ahs aks ake ake ale aes ales hs alo ahis afc ahs akes alheats ahs ake ahs ats alsats alsatsals alsalealsalsalsalsatsalsalsalsalhsals ahsalsaksaks whe ake ake ake abe aks ake ake aks ake als ate 
EV GL OV OD EV GD ED EY AL OD AD ED EL GD OD GY EL ED AY EL EL ED FR FY EDEL ED FLED FY EV ED OD GT FL FY EVEL ED EL GL FL ID ED GY EVEL FL FEEL FH EL AL EV ED FR IL EL EL ED OR ED CR ED EL ED ED OL FR Ed OR CD 
Po oh. 
¢% ee 


oF 


The variables IPLOT and JPLOT define the number of uniformly spaced * 


* grids to be used in generating the 2-D plot and must be changed if * 
* a different grid spacing is desired. * 


a 
¢ 


implicit real*8 (a-h,o-z) 
ecommon/Uugrdy polo. ip lot 
common/sctl/iscn, jscn,kscn,nview 


data iplot, jplot/24,24/ 
data nview/0/ 


end 


FR FL FY. ER ER. FD. ED FE FR FR FL FL FY. FX. FB EDV FY FB FR FR FR ER FO FR FH FR EL ER EL ER ER FH FR FR EL CD FE FS FH GR FR ED FD ay ee FX FV FLFR FY FR FR CO FRX FD 


SUBROUTINE INPUT 


hee phe pho aks ahs als ahs als ahs aks aks heats te als ahenks alealsals abe ales ales alsatenke ales ale ales als ules ales ale abouts als atoats abe alsals aks alealsatoalsalsals alrals als als alsats als als tents aboals alsalsalsalsals als atontontontoats als 
FV_ FV GD. FV FY FY EY. FVD FR FV FR ED EDL ER FR. FY FT FE FR GV FR FH FY ER FR FR FR. Fo_ FX FR FB FIT FR FR EL FE GL GR FR FR 4B FR FL FL FY FR EL EBX FD. FB. FR EDL EDV FDL FR FB EY EY CHET FR EB EL FR FY FD FRX FX FD FR GH 
am ¥ 
a8 8 e s ele 
* Input data from existing datafiles. * 
* * 


implicit real*8 (a-h,o-z) 

common/b1l1/dx,dy ,dz 

common/b1l12/x,y,h,tflr,twal,ta,xtime 

common/b17/ni,nj,nk 
common/data/t(Z5 525,175) , (25, 25 9 oe We eee 
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C ok. ate ot 
eu eu dy 


1000 


'® eke whe ate 
eu eves 


10 


uu( 24,24) ,vv( 24,24) ,uu1(24, 24) ,vv1(24, 24) 


READ IN DATA FROM EXISTING DATA FILE 
open(10,file='fire.dat' ,status='old') 
Feaqd@l0e- Jox.y,n,trlr,twal,ta 
read(10,*) ni,nj,nk 

rewind 10 

close (10) 


open (unit=9,file='plot.data’ ,status='unknown' ) 
read(9,1000) xtime,t,u,v,w 
fonmaccacr lk, ./)) 


DIMENSTONALIZE VELOCITIES 10° CM/SEC 
do 10 i=l,nit4 
do 10 j=l,njt4 
do 10 k=1,nk+4 
Weis jah) =ul 1, 35k)*30..25 
Vite. kK )=V01.)],Kk)*30.25 
Wiha) Kk )=wli.},kK)“30.25 
continue 


return 
end 


oo whee whee leo whee whe whe ahie aber ater eter abe alee ache alee alae alee elie elie aber anlar enler anhee nha che nher chee eee echee chee anhes anler enlee enh hee aches enfen enhee enler ele enter hee anlar chee anhee enter anlar her ache ele cher cele enhe cehen oe! co chee anhee ahie her hie anler ohio ae ahee aher elie alee whee elie whe whe abe 
SR ER AR ER AD AR EN AR GN GD AN ER ER EL GN ER GY ER ER ER EN ER GN GLEN EN EN FUEL BREN ER GR EL EDEL ERED EN EL EDEL ER GN GR ELEN EN ELEN ER GN EREN GL UV ER GL ELEN ER INES GV INES ED EN EN CR UREN 


SUBROUTINE GRID 


whee wae wher whe whee alee whe ake ale afe ale ate afe ate abe ale ale ate ate ate ats ale ale ale ate alee hie elie ate alee ate ate ale whe alee ale ate ale ale ate ale ate ates ate ate ale ale ate ate ate whe ate ate ale ate ale ale ates alee ate ale ale ate ate ate ale ale mle ate ate ate ate 
GR ER EL ADL ED ER GN ORAL ER EN EN EN AL ER GN FR ER EL GR EL EL IR AR GL EDEN GDL EN ERED EN GL EN FR EDEN ERED EN EDEL ERAN EN GN GR ER GR EN GR EN ELEN GN EN ER EN ER EN GREEN GN OS EN ER EL FREER EN ER FR 


© he whe ate 
aR OR 48 


e whe he ake 
riwerierry 


10 


We 


implicit real*8 (a-h,o-z) 
common/r4/xss(40) ,yss(40) ,zss(40) ,xs(40) ,ys(40) ,zs(40) 
common/bl1/dx,dy,dz 
common/b12/x,y,h,tflr,twal,ta,xtime 
common/b17/ni,nj,nk 


GENERATION OF THE GRIDS 
dx=x/(float(ni)*h) 
dy=y/(float(nj)*h) 
dz=h/(float(nk)*h) 


CALCULATE XSS,YSS,ZSS (COORDINATES OF STAGGERED CV'S) 
dor l0=1=3 ,nit3 

xss(i)=(i-3)*dx 
continue 
xss(2)=xss(3)-twal/(h*12. ) 
xss(1)=xss(2)-twal/(h*12.) 
xss(nit4)=xss(nit3)+twal/(h*12. ) 
xss(nit5)=xss(nit4)+twal/(h*12. ) 


do 12 j=3,nj+3 

yss(j)=(j-3)*dy 
continue 
yss(2)=yss(3)-twal/(h*12. ) 
yss(l)=yss(2)-twal/(h*12. ) : 
yss(njt+4)=yss(nj+3)+twal/(h*12.) 
yss(njt5)=yss(nj+4)+twal/(h*12.) aa 
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14 


C whee alee ale 
eu eu es 


20 


22 


24 


do 14 k=3,nk+3 

zss(k)=(k-3)*dz 
continue 
zss(2)=zss(3)-tflr/(h*12. )} 
zss(1)=zss(2)-tflr/Ch*12. ) 
zZss(nkts )=ZSss(nkt5)ttile/(iniz 
zss(nkt5)=zss(nkt4)+tflr/Ch*12. ) 


CONVERT TO CENTERED GRID FOR USE BY PROGRAM 
do 20 i=l,nit4 

xs(i)=(xss(i)t+xss(itl))/2 
continue 


do 22 j=1,nj+4 
ysC)J=(Cyss(j)tyss (ie) 2 
continue 


do 24 k=1,nk+4 
zs(k)=(zss(k)+zss(k+1))/2 
continue 


return 
end 


orks whe whe whe whe ales ale ales ales ale ales als ales ats ales ale ate ats ales als ale ale ale whe ales ales ales ales ale ates als als alee ale ales als whe ale whe whe wheats alee ale alee whe als als whe ale ale wls ales ales ale ales ales ales ales ale ale ale ale ale ale ale ale als ale als ates ato 
FD OR GR GV GL ED ED GT IL ED GD GID IL GIL FILED IT GD OV ID FD ID IL ID FRED GD ID GL ID ED ED GT IV IL IDL ID ITED IDEN FEIT GD GT IV ID IL IT GY SD STAD IL GD ODED ED OD IL IL ED IR EVER OD ID ITED OD OD OD 


SUBROUTINE SECTION(nstop) 


ches mchee mls mhie whe arlre mbes whee whee whe whe whe whe whe ale mle wlowts whe ale ule ales whe ale whe abe ale abe ale ales wheats ale ale wle ate whe ales abe ele ules ale ales ales mbes abe ale mle whe ales abe whe ale ale ale ale abe ale ale ale whe ale abe mle les ale mle mle ale ale ale ols 
ER GR IL IL ER IL GL IL IR EY GR GD IR GV IR FV ED ID IR GRIER SD IL IS CD ID GD OR IT GD IL GD IR ID IR ER ER IL ER EDT EVER GD GD IL ER GL FL CRED GDR IVIL ER ID GID IL GEER IDFR IL ED FD FRED CD EL OD FR FD FD 


29 


S) FE 


c abe whe ale 
rl errs 


implieie Lreal=6 (a-h,o-Z) 

conmon, fctn/xfrenl, xftienZ yt em lay fee 
common/sctl/iscn, jscn,kscn,nview 
common/sct2/xscn,yscn,zscn 
common/b1l2/x,y,h,tflr,twal,ta,xtime 


whe 
rzN 


print 
Drink 
print *, ‘ENTER FOR: ' 
print lessee ----! 
print 

print 


whe 
ee 


0 Finished with program’ 
1 Plan View (X-Y plane) ' 
pein 2 Elevation (X-Z plane) ' 
print *, 3 Elevation (Y-Z plane) ' 
if(nview.le.0) goto 97 
Princ woo Enlargement of portion of previous plot’ 
print = 
print *,'Enter your desired vector field plot:' 
read (*,*) nview 
nstop=0 
xfrn1=0. 
xin 2=1 
yfrnl=0. 
yfrn2=1. 


b 
b 
bd 
b 
bd 


Fock ch ck ct 


ate 
ee 


END PROGRAM 
if (nview.eq.0) then 
nstop=9999 
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Gc at. WL wi 
eV au ae 


G ale als ale 
Ow herr 


20 


PLOT AN X-Y PLANE (aka Z SECTION) 
elseif (nview.eq.1) then 
iscn=0 
jscn=0 
kscn=1 
xscn=0. 
yscn=0. 
print * 
format (lx,a/1lx,a,f5.2,a) 
hesbque /, 
‘Enter desired height of desired plot above the floor’, 
ilocrm —s0e Osco lamoe—— i) )). 
read (*,*) zscn 
if(zscn.1t.0..or.zscn.gt.h) then 
printer 
print 5,' Input value must be between 0.0 and ',h 


format (1x,a,f4.1) 
print *,'Try again.’ 
ZOELOr 10 


endif 


PLOT AN X-Z PLANE (aka Y SECTION) 
elseif (nview.eq.2) then 
iscn=0 
jscn=l 
kscn=0 
xscn=0. 
zscn=0. 
Dr lie 
print 72 
‘Enter "y distance (in ft) of desired plot from the left wall’ 
"Glete Walie=—sUeOre Richt  Wall-—= %y, )- 
read (*,*) yscn 
PeCyseneit. 0 2or-yscn.ot.y) then 
Print. 
print 5, Input value must be between 0.0 and ‘,y 
Pointe, lny again. 
go to 20 
endif 


C *** PLOT A Y-Z PLANE (aka X SECTION) 


30 


elseif (nview.eq.3) then 
iscn=1 
jscn=0 
kscn=0 
zscn=0. 
yscn=0. 
print. > 
print ie 


& ‘Enter x distance (in ft) of desired plot from the right wall' 
& "Gbette Walle=0-0-skight Wall = x, )- 


read (*,*) xscn 
(2S; Lhe sO eS ED then 
print * 
print 5,'Input value must be between 0.0 and ',x 
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ke 


print *, Try again.‘ 
go to 30 
endif 


C *** ZOOM IN ON A PORTION OF THE LAST PLOT 
elseif (nview.eq.4) then 
40 Drink. 
print *,'Enter the X & Y coordinates (expressed as a decimal’ 
print *,' percentage of the whole plot, i.e. 25%=0.25) for the 
print *,' lower left corner of the area to be enlarged.’ 
read (*,*) xfrnl,yfrnl 
if(xtrn] lt. Oster, xtra obo leamore: 
& yirnlwit.0. :ercyirn leet 1 ene 
print *,'All coordinates must be between 0.00 and 1.00!' 
print *,'Please correct and reenter.’ 
goto 40 
endif 
45 Prine 
print *,'Enter the X & Y coordinates (expressed as a decimal’ 
print *,' percentage of the whole plot, i.e. 25%=0.25) for the 
print *,' upper right corner of the area to be enlarged.' 
read (*,*)-xfira2 jvirn2 
tiCxirnZ. lt ..0georex tym 9c cleo 
& virn2. lt. Os or-yirn2- ct. le ciier 
print *,'All coordinates must be between 0.00 and 1.00!' 
print *,'Please correct and reenter.’ 
goto 45 
endif 
if (xXfrn2 se exfrnior. y Prive fren) chien 
Dieta lexan 2 (ie? al) ae) 
‘These coordinates must be greater than ',xfrnl, 
and syfirmls srespect ively es 
print *,' Please correct and reenter. 
goto 45 
endif 


t 


RQ? 


C *** ERROR ON ENTRY OF NVIEW 
else 
print 
print *,'Incorrect response! Please enter 0 - 4' 
goto 99 
endif 


ro 
ee 


retucn 
end 


hn alee bee whee ahs ake abes afes ker kes mbes aboaher kar ker aber aes Le mlin wher ker mle abee wher ber hie ahes aber mbar mbar akin ken makes afer maker alee alee elas wakes afer afes afes kar ker wer kar aber aber ker mbar aber mbar aber alee kar afer aher mbes mbes kes ates ales aber wher ebemlie mbes wher mb ler enfer ater 
FR OV YL ED ER ER EL OR ONY ON AD EN GR SY OR OD SY ALON SU OD OR GU GD ODL SE GLUED GL EDL EL EL ALES IL ED ED ER OD AY GD GL EULER EL EL ER AL OD GY EY ED GY EL 4 EL ED ED ON GE ED EL FD ED ED CR OR EL ED CD CR 


SUBROUTINE INTERPOL 


PRL EL ED ED EVER EY EL ERED EDEL ER ED EL ED EDT OR ERED FU GLEN GL GL GS GV AYER ED LED ED ER EAL EY ER ER ED ER ER FEEL ED CD CR ER ER ED GL EL Id 4% ee OV GV EL AV OLED ED ED EL ID AE 


oe as 
* This subroutine interpolates to the desired section. It is * 
* necessary since any arbitrary section would fall in between two * 
* grid points and must be linearly interpolated. * 
# * 
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Cc whe whe whe 
eu eyes 


whee whe was whe whe 
wie wiry 


@, whe heals 
rei wri) 


10 


C whe ale ate 
ee eees 


20 


Pap 


24 


implicit redl-o (a-h,o-z) 

common, Gaited 25 72 olan 25,25 15) .v( 25 ,25,15),w(25,25,15), 
uu( 24,24) ,vv(24, 24) ,uul(24, 24) ,vv1(24, 24) 

common/lmt1/ixx, jyy 

common/ lmt2/xx,yy 

common/sctl/iscn, jscn,kscn,nview 

common/ngs/xxs(40) ,yys(40) ,x1(40) ,y1(40) 

common/r4/xss(40) ,yss(40) ,zss(40) ,xs(40) ,ys(40) ,zs(40) 

common/bl1/dx,dy ,dz 

common/sct2/xscn,yscn,zscn 

common/bl2/x,y,h,tflr,twal,ta,xtime 

common/b17/ni,nj,nk 


NON-DIMENSIONALIZE REQUIRED VARIABLES 
if(nview.ne.4) then 


xscn = xscn / h 
yscn = yscn / h 
zscn = zscn / h 

endif 

wth =y /h 

Den = x / hh 


LOCATE SECTION OF INTEREST “#3 


X SECTION 
if (iscn .ne. 0) then 
ao. 10 1=2 nits 
ees) seee xscn sand. xs(i-=]) .1t. xscn) then 
~ igi =i 
endif 
continue 
a xsCigi- xsen) / (xs( igi) = xs(igi-1)) 
ee ee = ed 


INTERPOLATION DONE HERE 
do 20 j=2,njt+4 
do 20 k=2,nkt+4 
VV — Cl awl iei- lo jek) ot ¢2 3 wliei, jek) 
MNGi = Cl = viigiol 7. Kot c2 < vl ie1.4,k) 
continue 
1XX njt+4 
jyy = nk+4 
XX wth 
‘Oka 
do 22 i=l,ixx 
xxs(i) = ys(i) 
xl(i) = yss(i) 
continue 
Doe ayy. 
yys(j) = zs(j) 
yi€j) = zss(j) 
continue 
endif 


eee Y SECTION 


Re 


if (jsenmene 0) tien 
do 30 j=2,nj+4 
if (ys(j) .ge. ysen .and. ys(j-1l) .1t. yscn) then 
gis 
endif 
30 continue 
cl = (ys(jgi) - ysen) / (Cys( jet) =] ys Gere 
e2u= 1 ser 


C *** INTERPOLATION DONE HERE 


do 40 i=2,nit4& 
do 40 k=2,nk+4 
uu(i,k) = cl * u(i,gei-!l bk) te? ee icees 
vv(i,k) = cl * wi, jets eZ aw Cie ieee 
40 continue 
ixx = nit4& 
jyy = nk+4 


xx = bth 
yeas 1. 
do 42 i=1,1xx 
xxs (i )e= xsc) 
X1i(Ci) s=sxssici) 
42 continue 


do 44 j=l,jyy 
yys(j) = zs(j) 
yl(j) = zss(j) 
44 continue 
endif 


C =“ 24 seCrilgan 


if (ksen (nes.0 me chen 
do 50 k=2,nk+t4 
if (zs(k) .ge: Zsén= sand. Zs(k= eit. e2sensmchnen 
kgi = k 
endif 
50 continue 
el (zs(kgi) = zscen) /  (zs(kei)— Zetkoi 
e2 ec wed | 


wwwx TNTERPOLATION DONE HERE 
do 60 i=2,nit+4 
do 60 j=2,nj+4 
uu(i,j) = cl * uli,),kgi-1) + «2° wae 
vvV(i,j) = €l * va, jy keis! cl va eee) 
60 continue 
ixx = nit4 
Dy oe Os 
xx = bth 
yy = wth 
do 62 i=1,ixx 
xxs(i) = xs(i) 
xl(i) = xss(i) 
62 continue 
do 64 j=l,jyy 
yyStj) = ysiay 
y1(j) = yss(j) 


64 


C aches whee whe 
oyey en 


70 


continue 
endif 


DETERMINE MAXIMUM VELOCITY COMPONENTS 

cx = 0. 

cy = QO. 

do 70 i=1,ixx 

do 70 gels ayy 

Heaps (uur) eet. sex )ex= abs (unl i, ))) 
iiataoS(vy Gl |) et cy )ecy = abs(vv(i,))) 

continue 

print *, THE MAXIMUM X-DIRECTION VELOCITY IS‘ ,cx 

print *,'THE MAXIMUM Y-DIRECTION VELOCITY IS',cy 


return 
end 


eS ee SS SS SS SS SL SA SO SO SE DN SE SG SA SNES OO DE En Oe nN SE OE OS Se ES Oe Ee Oe ee Se A Oe NS Be 
FR EL GL EDEL EL EL EL ED GL IL GR ED EL GY OD FUEL ED FD GLUED ED FT ERED GL GL EL EL GL GL GLGL GL IVER AL ENGL EL ER EN EN GY EL ET IV EV GV ED GUC EL FLED CCID GD LGD OD EV IVIL ILIV GED ELEY OC EVER 


SUBROUTINE SCTN 


oa OS DL Se ee De ee ne ee ee eee ene eee ee ee eee eee ere ee eee ee ne ee ee ene ee ee eee ee ee Oe ee ne ee ee Oe ee ee Oe Oe ee ee ee ee Oe Oe ee Oe ee Oe ee Oe Oe Oe OE Se Be 
BR GD GL EDL GL ER GL IL GD FR GLUED GL GLY FL AVL GL GV GL GL ERED GY OD IL ID FLED GD GL IL AL GD BLED ES GU EL GL IL GD ER FLED ER GV GL IV EL ON AL EN GL EC GY AN ILIN GL GL GLE GV FLED ED EX OD ED OD 


ok ck ck ck ck ck ook 


In this subroutine the non-uniform grid is interpolated onto a 
uniform grid for plotting purposes. 
“blowing up. or ‘zooming in on’ a certain portion for detailed 
Viewing. 


The routine has the option of 


te ck Sb ook Ck Sk oF 


whee eles elie whe abe abe whe ale ale mts ale ale whe alc mbes alee eles mbes mh mbes ates mbes alee whic als mbes whee mle mbes mbes melee elie melee abe elie mbes eles eles mbes mbes mbes alee abe elie mbes alec mfr atic mis mbes mle alie alc ales tis ele mts mbes alee alee ale mts ets mts ole mls wher ete mts ale ate ate 
PREV AL ED GL AL GD AL GL AL GL ERED EL GR OV AN GD GL ED GL GED GL GL FE OD AL GD ED GD FR ALIN GD OD FL EL EN GY IN GD EVEL FLED GL GL IL EN AL GL OD SEIDEL EL GD ENGL GV ON LIVED FY ED EVID OD IL ED ON 


G ark orb ooh 
rower 


Gc whe heals 
Iwi wrrs 


PMD licits Troalws,(CashJo-Z) 


SOUumom aad ta2s 2 om lo .MCcs025, 15), 0025 .25,15)~wOZ5,25315);, 
Hie 4674 jevv( 24.24) ul 24. 24) vv l( 24.24) 


common/1imt1/ixx, jyy 
common/lmt2/xx,yy 


common/r4/xss(40), yss(40) ,zss(40) ,xs(40) ,ys(40), Beene 


common/ngs/xxs(40), yys(40), x1(40) ,y1(40) 
common/ugrd/iplot,jplot 
eommon, fctn/xtrnl,xfrn2,yfrnl,yfrn2 


DETERMINE LIMITS OF INTERPOLATION 


xlmtl = xfrnl * xx 
SiMe ce= xXiENc. 7 XX 
ylmtl = yfrnl * yy 
yimt2 = yfrn2 * yy 


Sexi e ximt lie / tloattiplot - 1) 
dy Cyintzs. yimcel) /“float(jplet = 1) 


LOCATE SECTION AND DEVELOP INTERPOLATION PARAMETERS 


do 20 i=l,iplot 
do 20 j=1,jplot 
xtmp mimtller dx 7 wloatti =~ 1) 
ytmp = ylmtl + dy * float(j - 1) 
do 10 ii=2,ixx 


if (xxs(ii) .ge. xtmp .and. xxs(ii-1) .1t. 


Pil = 11 
endif 
Panel) oceu xemp ances xLiri-1) .1t. 


le 


xtmp) then 


xtmp) then 


10 


1S 


we whe whe 
os fd ot 


& 


& 
20 


whe ake ate 
eueuey 


30 


hee her wher 
wriet. 


40 


12 et 
endif 
continue 
cx = (xxs(iil) - xtmp) / (xxs(a11)"-=xxs(111-18 
ex.s = (xl(ii2) = xtmp) 9 (x )Gi2 ee 2 
dowload da25 19) 
if (yys(jj) -ge. ytmp .and. yys(jj-1) .l]t) ytmp) then 
Beem as 
endif 
if (ylCjj).ge. ytmp .and. yi(jj-Pjyoete] yemp) gener 
ae Sy 
endif 
continue 
cy = (yys(jjl) - ytmp) 7 GysGal) = yysGo ep 
eyes = (y1Cjj2) - ytmpory (yO) size 


Clee = "Cx suey 

C12 = CXS) Gl sae) 

C2 2 =e (1. exis) = cy 

e225) = (1a eex Ss ) ea Glare) 
C lila =2 Cx. eyes 

C122 e=sex- Cl erwcyes) 

C2lay = Cl, = cx) acy s 

C222y = Ole CX a el ee vase) 


INTERPOLATION DONE HERE 


uul(i,j)} = cll_u * uu(ii2-1,))1-1) + cl220 * utGe ae 
+ c21_u * uu€ii2,;))1-1) + e222 ui ae 
vv1Ci,j) = cli_v * vv(€iil-1,jj2-1) + cl2.v* WO eae 
+ c2) iv * vv(Ciil,j12-1) =) e225 yy Ga 
continue 


DETERMINE MAXIMUM INTERPOLATED SPEED 

vmax = Q. 

do 30 i=l,iplot 

do 30 j=1,jplot 

vmag = sqrt(uul(i,j)**2 + vvl(i, j)**2) 
if (vmag .gt. vmax) vmax = vmag 

continue 

print *,' THE MAXIMUM SPEED IS‘ ,vmax 


DETERMINE MAXIMUM INTERPOLATED VELOCITY COMPONENTS 

umax = Q. 

vmax = Q. 

do 40 i=l,iplot 

do 40 j=1,jplot 

if (abs(uul(i,j)) .gt. umax) umax = abs(uul(i,j)) 
if (abs(vvl(i,j)) .gt. vmax) vmax = abs(vvl(i,j)) 

continue 

print *,'MAXIMUM INTERPOLATED U-VEL' ,umax 

print *,'MAXIMUM INTERPOLATED V-VEL' ,vmax 


return 
end 
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SUBROUTINE PLOT 


whe wle ale ale eleale ale ale ale 
Leeds eR REE REA REE REAR REAR ER AE RE EER REE EERE ER RER EER REE ERR EER EE REE EERE 


ale oh. 
ae ee 


* This subroutine plots the velocity vectors using the VELVCT routine * 


* of the NCAR Graphics package. ws 
~ » 


whe ake whe ale abe ale ale whe alea ale ale ale ale abe ole oleate abe abe als ale ale aleale ale ole als ale ale ate abe ole oleate ale ale ate abe ole whe ahs ales ales abe abe als ala otea ole ate ale ole oleate ate ale abe abe ales ale ale ale abe whe ole le ole ale abe ofa obe abe 
40 FU FY FR GD ED GD EE ED OD FD FD FD SU ERED ED ED CR GD ER IDEN GR ER FD FH EDAD GL GN GR GR EL ELL ED ENED EDV FL ER OD CD ED GD ON FD OD OT PRFID OD OV GL ER ED OV ED OS EV ELEN EDV ED ED FD OD PV ED ED OD 


Conmon, datayamecs 25,19) zoo, 15 )ovC25;25.15),wl25,25,15), 
& mu 24 24) VVC 24,24) ,uul 24,24) ,vv1( 24,24) 

common/ lmt2/xx,yy 

common/ugrd/iplot, jplot 

common/sctl/iscn, jscn,kscn,nview 

common/sct2/xscn,yscn,zscn 

common/bl2/x,y,h,tflr,twal,ta,xtime 

commen, cetny xtrnl,xfrn2 j;yirnl yfrnZ 


external TAG 


Gealaoteu vow sus vV ,uul, VV xx yy 

tea i eexsen- ysen, Zsen,x,y,h,tflr,twal,ta,xtime 
pealwe Mirna xfinz,vyirnl,yirn2 

character*5 elev,sec 

character*45 title 

Giamaccers4 xbl,xi2 .yll,yl2 


dimension varx( 24,24) ,vary(24,24) ,spv(2) 


C *** SET PARAMETERS REQUIRED FOR NCAR GRAPHICS ROUTINES 
data spv/2*0./ 


week CONVERT TO SINGLE PRECISION (NCAR WON'T WORK IN DOUBLE PRECISION) ***** 


C *«x*~ FIRE TIME WHEN DATA WAS TAKEN 
time=xtime*h/1.0 


eee SECTION TO PLOT 
if(iscn.gt.0) then 
scn=xscn*h 
xzooml=xfrnl*y 
xzoom2=xfrn2*y 
yzooml=yfrnl*h 
yzoom2=yfrn2*h 
elseif(jscn.gt.0) then 
scn=yscn*h 
xzooml=xfrn1*x 
xzoom2=xfrn2*x 
yzooml=yfrnl*h 
yzoom2=yfrn2*h 
else 
scn=zscn*h 
xzooml=xfrnl*x 
xzoom2=xfrn2*x 
yzooml=yfrnl*y 
yzoom2=yfrn2*y 
endif 


C po oe oe 
er ard) 


Cc whe whe aks 
ere 


E a oe ee 
er. 4 4d 


20 


Po or oo 
ey 4% 4% 


C thee whe whee 
ON OR 4d 


C hee whee ake 
ey ov oe 


C ahoals ah. 
4B oven 


CONVERT REAL NUMBERS TO CHARACTERS FOR USE IN TITLE 
call TAG(scn,elev) 

call TAG(time,sec) 

call TAG(xzooml,x1ll1) 

call TAG(xzoom2 ,x12) 

call TAG(yzooml,y11) 

call TAG(yzoom2,y12) 


DEFINE DIMENSIONS OF PLOT AREA 


xlbit = ©2125 
Nret = Mere 0 7 xx) 2 
ybot = 0.20 
yop = Voot s+ 027 oeyy / 2. 
xl = 24, 
if (kscn.gt.0) then 
yl = 24. 
else 
yl = 14. 
endif 


VELOCITY -GOMPONENTsS 
do 20-1 =I aplce 
do 20° j=l], )plot 
varx(i,j) = uul(i,j) 
Vary (i,j) = eva 7) 
continue 


START WITH NCAR GRAPHICS 
call GOPKS 3(6,0)) 

cal] GOPWKY Glaze) 

call GACWK (1) 


TURN OFF CLIPPING SO CHARACTERS ARE PRINTED OUTSIDE PLOT 
call GSCLIP(O) 


DEFINE BOUNDARIES AND SET PERIMETER FOR VECTOR PLOT 
call "SET “(xeEtsxret.ybot. vtoo, lex xl eles) 
call PERTH O10) 


PLOT VELOCITY VECTORS 
call VELVCT (varx,iplot,vary,iplot,iplot, jplet,04.0-8 — 00m e 


LABEL AXIS AND TITLE PLOT *###4% 


© X SECTION 


if(iscn.gt.0) then 
title='Y-Z ELEVATION (X = ‘/felev// son 50s 7 sec). slemm 
call PLCHHO((xlfttxret)/2°+4275 .voote2. 5, €1t le. 100 see! 
call PLCHHO(10., 75, BREADTH (¥-DIR)aewiolly, On cele) 
eal] PLOHHOC1 5.355 Or 40e. em 
call PLCHHOIC23. 42 5) 412. OleOle) 
call PLCHHQ(.5,7.0,'HEIGHT (Z-DIR)',.01,90.,0.) 
Gall PLCHHOC 5S, 1eSey 110d oer 
call PLCHHO({5 913758 y 12) Ole J Oeeore) 
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C *** Y SECTION 
elseif(jscn.gt.0) then 
Eitle= <“-7ebUEVAdTON (Y = //elev// FT.) AT ‘//sec//' SEC.‘ 
Call PRCHHOC( x BEttxret)/2.4-75,ybot-2.5,title, .015,0.,=1.) 
call PLCHHQ(10.,.5, ‘DEPTH (X-DIR)‘,.01,0.,-1.) 
Gall) PECHHO( Iaaeoelis O10 25-1.) 
Cal leRleCHHO( 23 weoex le ee0 10... -1. ) 
call PLCHHQ(.5,7.0, HEIGHT (Z-DIR)',.01,90.,0.) 
eal CRCHHOG. 5, leon yids 01 905,0.) 
call PLCHHQ(.5,13.5,y12,.01,90.,0.) 


C *** Z SECTION 
elseif(kscn.gt.0) then 
fi pile=-PLAN VIbW 2 = //elev// -FI.) AT “//sec//' SEC. ‘ 
Caer bennOCtxlittxuet)/ 221) ypot-2.5,title,.015,0.,-1,) 
call PLCHHQ(10.,.5,'DEPTH (X-DIR)',.01,0.,-1.) 
Gall) PLCHHOC1.. .5,x11,.0120.,-1.) 
Calle PEGHHO(23.5.5.x12.201-0..=1.) 
call PLCHHQ(.5,9.0,'BREADTH (Y-DIR)',.01,90.,-1.) 
eae | SP EeHHOt s 5.5 711,01, 90. 0.) 
eal E ECHO G5. 2545 +712 201290 ..0. ) 
endif 


C *** FINISHED WITH NCAR GRAPHICS 
call GCLRWK (1,1) 
call GDAWK (1) 
call GCLWK (1) 
_call GCLKS 


~ 


aahee anes enhes anlar anlar anfue ante anher anlar enter anlar afer ankee ankles alus alus aker ates anher enter aber ofan abes ales aches eter aber akes anlar anher ankec enter wher enter ales anes ehes aches anlar enter aha ankles ther aber ales aber antes aber ake afer abies aches hes aber aber ales hes aber a! co aches afer aber eher wher aber whe ake aha wher afer anlar ehes 

FU FR FR FD FR FR FD FR FR FR FD FRU FR FR OD FR FR FR FO FD FR OD FR FD FR FR FR FR FR FR FR FR FD FR FR FR FR FD FR FR FR FR FR FO FR FR OD FR FR TR FR FR FR FR FR FR FB GO FO OR CR FR OD FO FR CB FH OD FH FB FD FB 
SUBROUTINE TAG(scn,elev) 

wlan of ce ehes ales oS cn ales ener eka anlar ehar anlar eniar afar ates ates afer afer ates har anlar See har ales enter wher enter ales les oS co elas ates anlar wher enhas afar ates elas ates elas har eater ela enhas ehar enhar alas har ekes afer antes eles enfar enter anlar wher eles afer ales enter ela enter anlar enfar enter anlar anlar anlar anlar ante enkar anlar aha 

Fe FD FR FR FR FR FD FE OD FR FB FB KTR FR OD FR FR OCD FB FR OD GR FD FR FB FR OD FR FD FR CB FR GR FR FR FD FX FD FHF FR OR FB FR FR FR FR FR Fo FR FR FR FY FB FB FR FH OD FH CD OD FR FH FH FX GR OD FO FB FR OD FB FR 

hee ahs 

er ee 


aches 
ey 


*~ This subroutine converts scn to a character value for use in the 
wee atle Of the plot. 


whe a 
ee ey 


Po 
ae 


whee aches achee anhee ache anhue anhas enhae anhes anfes anhes ales ater akee whee whee ahs ankis whi wher ankee anhes ater anhes whee ake anhen anlar ater fo anhes mlin afi mten anhee ates wher ales ater wkin whee aher aher anhee anhue aher ater aher mbes akee ahs anhie wer anhee afee antes aher anhur okie anher fee antes ates ankie whe anlar ankee afer ales ohio als ake 
ERAN AR FR ER AD ED FR OR FR GR OR GR GR OR IR GN GR GR GR OR GL OR OR GD ON FU GE GN GR EL FL OD ID EN GRAD ILD ID GR GD OR IL OD OD GN OD IL GT IN FR GE OU OD ON OD OD EN FR OD AL GEOR FLED ELEN ON OD ERED OR 


character*1l e(0:9) 
character*5 elev 


if(scn.ge.100..and.scn.1t.1000.) then 
il=int(scn/100.) 
i2=int((scn-real(il)*100.)/10.) 
i3=int(scn-(real(il)*100.+treal(i2)*10)) 
i4=nint((scen*10.-int(scn*10.))*10. ) 
elev=e(il)//e(i2)//e(i3)//'.'//eCi4) 

elseif(scn.ge.10..and.scn.1t.100.) then 
il=int(scn/10.) 
i2=int(scn-real(il)*10.) 


AF: 


i3=int((scn-antGsesy) 10) 
i4=nint((scn*10.-int(scn*10.))*10. ) 
elev=e(il)//e(i2)//'.'//e(i3)//e(i4) 
elseif(scn.1t.10) then 
1l=ine(sen) 
12=int((sca-ant( sen hos) 
i3=int((scn*10.-int(scn*10.))*10. ) 
i4=nint((scn*100.-int(scn*100.))*10. ) 
elev=e(il)//'.'//e(i2)//e(i3)//e(i4) 
endif 


return 
end 
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